|
Lines 3651-3660
sub LostItem{
Link Here
|
| 3651 |
if ( my $borrowernumber = $issues->{borrowernumber} ){ |
3651 |
if ( my $borrowernumber = $issues->{borrowernumber} ){ |
| 3652 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
3652 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 3653 |
|
3653 |
|
| 3654 |
if (C4::Context->preference('WhenLostForgiveFine')){ |
3654 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, C4::Context->preference('WhenLostForgiveFine'), 0); # 1, 0 = exemptfine, no-dropbox |
| 3655 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, 1, 0); # 1, 0 = exemptfine, no-dropbox |
3655 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
| 3656 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
3656 |
|
| 3657 |
} |
|
|
| 3658 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
3657 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
| 3659 |
C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}"); |
3658 |
C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}"); |
| 3660 |
#FIXME : Should probably have a way to distinguish this from an item that really was returned. |
3659 |
#FIXME : Should probably have a way to distinguish this from an item that really was returned. |
| 3661 |
- |
|
|