|
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 175-181
sub claim_returned {
Link Here
|
| 175 |
$ClaimReturnedChargeFee eq 'charge' ? 1 |
176 |
$ClaimReturnedChargeFee eq 'charge' ? 1 |
| 176 |
: $ClaimReturnedChargeFee eq 'no_charge' ? 0 |
177 |
: $ClaimReturnedChargeFee eq 'no_charge' ? 0 |
| 177 |
: $charge_lost_fee; # $ClaimReturnedChargeFee eq 'ask' |
178 |
: $charge_lost_fee; # $ClaimReturnedChargeFee eq 'ask' |
| 178 |
C4::Circulation::LostItem( $self->itemnumber, 'claim_returned' ) if $charge_lost_fee; |
179 |
|
|
|
180 |
if ( $charge_lost_fee ) { |
| 181 |
C4::Circulation::LostItem( $self->itemnumber, 'claim_returned' ); |
| 182 |
} |
| 183 |
elsif ( C4::Context->preference( 'MarkLostItemsAsReturned' ) =~ m/claim_returned/ ) { |
| 184 |
C4::Circulation::MarkIssueReturned( $self->borrowernumber, $self->itemnumber, undef, $self->patron->privacy ); |
| 185 |
} |
| 179 |
|
186 |
|
| 180 |
return $claim; |
187 |
return $claim; |
| 181 |
} |
188 |
} |
| 182 |
- |
|
|