Bug 20598: Accruing fines not closed out by longoverdue.pl if WhenLostForgiveFine is not enabled
Test Plan: 1) Ensure WhenLostForgiveFine is disabled 2) Create an overdue with a fine 3) Mark it lost with longoverdue.pl 4) Note it is still marked as an accruing fine 5) Apply this patch 6) Repeat steps 1-3 7) Note it is no longer an accruing fine! Signed-off-by: Maryse Simard <maryse.simard@inlibro.com> Followed the test plan and it works. Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
parent
fab9936ddb
commit
461a6f53b8
1 changed files with 3 additions and 4 deletions
|
@ -3692,10 +3692,9 @@ sub LostItem{
|
|||
if ( my $borrowernumber = $issues->{borrowernumber} ){
|
||||
my $patron = Koha::Patrons->find( $borrowernumber );
|
||||
|
||||
if (C4::Context->preference('WhenLostForgiveFine')){
|
||||
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, 1, 0); # 1, 0 = exemptfine, no-dropbox
|
||||
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined
|
||||
}
|
||||
my $fix = _FixOverduesOnReturn($borrowernumber, $itemnumber, C4::Context->preference('WhenLostForgiveFine'), 0); # 1, 0 = exemptfine, no-dropbox
|
||||
defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $itemnumber...) failed!"; # zero is OK, check defined
|
||||
|
||||
if (C4::Context->preference('WhenLostChargeReplacementFee')){
|
||||
C4::Accounts::chargelostitem($borrowernumber, $itemnumber, $issues->{'replacementprice'}, "Lost Item $issues->{'title'} $issues->{'barcode'}");
|
||||
#FIXME : Should probably have a way to distinguish this from an item that really was returned.
|
||||
|
|
Loading…
Reference in a new issue