|
Lines 179-185
sub store {
Link Here
|
| 179 |
|
179 |
|
| 180 |
# If the field has changed otherwise, we much update |
180 |
# If the field has changed otherwise, we much update |
| 181 |
# the 'on' field |
181 |
# the 'on' field |
| 182 |
elsif (exists $updated_columns{$field} |
182 |
elsif ( exists $updated_columns{$field} |
| 183 |
&& $updated_columns{$field} |
183 |
&& $updated_columns{$field} |
| 184 |
&& !$pre_mod_item->$field ) |
184 |
&& !$pre_mod_item->$field ) |
| 185 |
{ |
185 |
{ |
|
Lines 381-387
sub safe_to_delete {
Link Here
|
| 381 |
{ |
381 |
{ |
| 382 |
itemnumber => undef, |
382 |
itemnumber => undef, |
| 383 |
} |
383 |
} |
| 384 |
)->count; |
384 |
)->count; |
| 385 |
|
385 |
|
| 386 |
if ($error) { |
386 |
if ($error) { |
| 387 |
return Koha::Result::Boolean->new(0)->add_message( { message => $error } ); |
387 |
return Koha::Result::Boolean->new(0)->add_message( { message => $error } ); |
|
Lines 1563-1570
sub columns_to_str {
Link Here
|
| 1563 |
$subfield |
1563 |
$subfield |
| 1564 |
? $subfield->{authorised_value} |
1564 |
? $subfield->{authorised_value} |
| 1565 |
? C4::Biblio::GetAuthorisedValueDesc( |
1565 |
? C4::Biblio::GetAuthorisedValueDesc( |
| 1566 |
$itemtagfield, |
1566 |
$itemtagfield, |
| 1567 |
$subfield->{tagsubfield}, $value, '', $tagslib |
1567 |
$subfield->{tagsubfield}, $value, '', $tagslib |
| 1568 |
) |
1568 |
) |
| 1569 |
: $value |
1569 |
: $value |
| 1570 |
: $value; |
1570 |
: $value; |
|
Lines 1788-1794
sub _set_found_trigger {
Link Here
|
| 1788 |
if ($lost_fee_payment) { |
1788 |
if ($lost_fee_payment) { |
| 1789 |
my $today = dt_from_string(); |
1789 |
my $today = dt_from_string(); |
| 1790 |
my $payment_age_in_days = |
1790 |
my $payment_age_in_days = |
| 1791 |
dt_from_string( $lost_fee_payment->created_on )->delta_days($today) |
1791 |
dt_from_string( $lost_fee_payment->created_on ) |
|
|
1792 |
->delta_days($today) |
| 1792 |
->in_units('days'); |
1793 |
->in_units('days'); |
| 1793 |
if ( $payment_age_in_days > $no_refund_if_lost_fee_paid_age ) { |
1794 |
if ( $payment_age_in_days > $no_refund_if_lost_fee_paid_age ) { |
| 1794 |
$self->add_message( |
1795 |
$self->add_message( |
|
Lines 2174-2185
Returns the effective bookability of the current item, be that item or itemtype
Link Here
|
| 2174 |
sub effective_bookable { |
2175 |
sub effective_bookable { |
| 2175 |
my ($self) = @_; |
2176 |
my ($self) = @_; |
| 2176 |
|
2177 |
|
| 2177 |
my $bookable = $self->bookable // $self->itemtype->bookable; |
2178 |
return $self->bookable if defined $self->bookable; |
| 2178 |
if ( !$bookable && $self->itemtype && $self->itemtype->parent ) { |
2179 |
|
| 2179 |
$bookable = $self->itemtype->parent->bookable; |
2180 |
my $itype = $self->itemtype; |
| 2180 |
} |
2181 |
return 0 unless $itype; |
|
|
2182 |
|
| 2183 |
return $itype->bookable if $itype->bookable; |
| 2181 |
|
2184 |
|
| 2182 |
return $bookable; |
2185 |
my $parent = $itype->parent; |
|
|
2186 |
return $parent ? $parent->bookable : 0; |
| 2183 |
} |
2187 |
} |
| 2184 |
|
2188 |
|
| 2185 |
=head3 orders |
2189 |
=head3 orders |