|
Lines 3689-3698
sub LostItem{
Link Here
|
| 3689 |
if ( my $borrowernumber = $issues->{borrowernumber} ){ |
3689 |
if ( my $borrowernumber = $issues->{borrowernumber} ){ |
| 3690 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
3690 |
my $patron = Koha::Patrons->find( $borrowernumber ); |
| 3691 |
|
3691 |
|
| 3692 |
if (C4::Context->preference('WhenLostForgiveFine')){ |
3692 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, C4::Context->preference('WhenLostForgiveFine'), 0); # 1, 0 = exemptfine, no-dropbox |
| 3693 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, 1, 0); # 1, 0 = exemptfine, no-dropbox |
3693 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
| 3694 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
3694 |
|
| 3695 |
} |
|
|
| 3696 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
3695 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
| 3697 |
C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}"); |
3696 |
C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}"); |
| 3698 |
#FIXME : Should probably have a way to distinguish this from an item that really was returned. |
3697 |
#FIXME : Should probably have a way to distinguish this from an item that really was returned. |
| 3699 |
- |
|
|