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