|
Lines 3298-3306
sub LostItem{
Link Here
|
| 3298 |
my $borrower = C4::Members::GetMemberDetails( $borrowernumber ); |
3298 |
my $borrower = C4::Members::GetMemberDetails( $borrowernumber ); |
| 3299 |
|
3299 |
|
| 3300 |
if (C4::Context->preference('WhenLostForgiveFine')){ |
3300 |
if (C4::Context->preference('WhenLostForgiveFine')){ |
| 3301 |
my $exemptfine=1; |
3301 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, 1, 0); # 1, 0 = exemptfine, no-dropbox |
| 3302 |
my $dropbox=0; |
|
|
| 3303 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, $exemptfine, $dropbox); |
| 3304 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
3302 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
| 3305 |
} |
3303 |
} |
| 3306 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
3304 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
| 3307 |
- |
|
|