|
Lines 24-29
use Carp;
Link Here
|
| 24 |
use DateTime; |
24 |
use DateTime; |
| 25 |
use Try::Tiny; |
25 |
use Try::Tiny; |
| 26 |
|
26 |
|
|
|
27 |
use C4::Circulation qw(MarkIssueReturned); |
| 27 |
use Koha::Checkouts::ReturnClaims; |
28 |
use Koha::Checkouts::ReturnClaims; |
| 28 |
use Koha::Database; |
29 |
use Koha::Database; |
| 29 |
use Koha::DateUtils; |
30 |
use Koha::DateUtils; |
|
Lines 145-151
sub claim_returned {
Link Here
|
| 145 |
$ClaimReturnedChargeFee eq 'charge' ? 1 |
146 |
$ClaimReturnedChargeFee eq 'charge' ? 1 |
| 146 |
: $ClaimReturnedChargeFee eq 'no_charge' ? 0 |
147 |
: $ClaimReturnedChargeFee eq 'no_charge' ? 0 |
| 147 |
: $charge_lost_fee; # $ClaimReturnedChargeFee eq 'ask' |
148 |
: $charge_lost_fee; # $ClaimReturnedChargeFee eq 'ask' |
| 148 |
C4::Circulation::LostItem( $self->itemnumber, 'claim_returned' ) if $charge_lost_fee; |
149 |
|
|
|
150 |
if ( $charge_lost_fee ) { |
| 151 |
C4::Circulation::LostItem( $self->itemnumber, 'claim_returned' ); |
| 152 |
} |
| 153 |
elsif ( C4::Context->preference( 'MarkLostItemsAsReturned' ) =~ m/claim_returned/ ) { |
| 154 |
C4::Circulation::MarkIssueReturned( $self->borrowernumber, $self->itemnumber, undef, $self->patron->privacy ); |
| 155 |
} |
| 149 |
|
156 |
|
| 150 |
return $claim; |
157 |
return $claim; |
| 151 |
} |
158 |
} |
| 152 |
- |
|
|