Attachment 74377 Details for Bug 20598 – Bug 20598: Accruing fines not closed out by longoverdue.pl if WhenLostForgiveFine is not enabled

[patch] Bug 20598: Accruing fines not closed out by longoverdue.pl if WhenLostForgiveFine is not enabled

Bug-20598-Accruing-fines-not-closed-out-by-longove.patch (text/plain), 1.82 KB, created by Kyle M Hall (khall) on 2018-04-17 18:13:28 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2018-04-17 18:13:28 UTC

Size: 1.82 KB

patch

obsolete

>From a0a70e9b5e7bf77e98dfb871d014eb39a842e338 Mon Sep 17 00:00:00 2001
>From: Kyle M Hall <kyle@bywatetsolutions.com>
>Date: Tue, 17 Apr 2018 14:11:41 -0400
>Subject: [PATCH] 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!
>---
> C4/Circulation.pm | 7 +++----
> 1 file changed, 3 insertions(+), 4 deletions(-)
>
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index 98498b81ff..de523ff4a5 100644
>--- a/C4/Circulation.pm
>+++ b/C4/Circulation.pm
>@@ -3627,10 +3627,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.
>-- 
>2.15.1 (Apple Git-101)

Actions: View | Diff | Splinter Review

Attachments on bug 20598: 74377 | 75932 | 81953 | 81954 | 82391 | 82392 | 82394 | 82395 | 82396