|
Lines 3627-3636
sub LostItem{
Link Here
|
| 3627 |
if ( my $borrowernumber = $issues->{borrowernumber} ){ |
3627 |
if ( my $borrowernumber = $issues->{borrowernumber} ){ |
| 3628 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
3628 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 3629 |
|
3629 |
|
| 3630 |
if (C4::Context->preference('WhenLostForgiveFine')){ |
3630 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, C4::Context->preference('WhenLostForgiveFine'), 0); # 1, 0 = exemptfine, no-dropbox |
| 3631 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, 1, 0); # 1, 0 = exemptfine, no-dropbox |
3631 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
| 3632 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
3632 |
|
| 3633 |
} |
|
|
| 3634 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
3633 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
| 3635 |
C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}"); |
3634 |
C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}"); |
| 3636 |
#FIXME : Should probably have a way to distinguish this from an item that really was returned. |
3635 |
#FIXME : Should probably have a way to distinguish this from an item that really was returned. |
| 3637 |
- |
|
|