|
Lines 3310-3318
sub LostItem{
Link Here
|
| 3310 |
my $borrower = C4::Members::GetMemberDetails( $borrowernumber ); |
3310 |
my $borrower = C4::Members::GetMemberDetails( $borrowernumber ); |
| 3311 |
|
3311 |
|
| 3312 |
if (C4::Context->preference('WhenLostForgiveFine')){ |
3312 |
if (C4::Context->preference('WhenLostForgiveFine')){ |
| 3313 |
my $exemptfine=1; |
3313 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, 1, 0); # 1, 0 = exemptfine, no-dropbox |
| 3314 |
my $dropbox=0; |
|
|
| 3315 |
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, $exemptfine, $dropbox); |
| 3316 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
3314 |
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined |
| 3317 |
} |
3315 |
} |
| 3318 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
3316 |
if (C4::Context->preference('WhenLostChargeReplacementFee')){ |
| 3319 |
- |
|
|