Attachment 106527 Details for Bug 8338 – Bug 8338: (QA follow-up) Clean up warning

[patch] Bug 8338: (QA follow-up) Clean up warning

Bug-8338-QA-follow-up-Clean-up-warning.patch (text/plain), 2.03 KB, created by Katrin Fischer on 2020-07-04 20:29:09 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Katrin Fischer

Created: 2020-07-04 20:29:09 UTC

Size: 2.03 KB

patch

obsolete

>From d26dd47f372cb85e06506916d3c9f7738a99bc38 Mon Sep 17 00:00:00 2001
>From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
>Date: Tue, 23 Jun 2020 15:10:50 +0100
>Subject: [PATCH] Bug 8338: (QA follow-up) Clean up warning
>
>This patch moves the accountline->store call below the FinesLog code
>such that we return the same 'thing' from _FixOverduesOnReturn as the
>other clauses of the routine.
>
>We also take the oportunity to clean up the warning thrown by an errant
>call to the routine such that we output the actual itemnumber rather
>than a HASH reference marker.
>
>Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
>---
> C4/Circulation.pm | 9 +++++----
> 1 file changed, 5 insertions(+), 4 deletions(-)
>
>diff --git a/C4/Circulation.pm b/C4/Circulation.pm
>index e16139b55e..f377442ca0 100644
>--- a/C4/Circulation.pm
>+++ b/C4/Circulation.pm
>@@ -2060,7 +2060,7 @@ sub AddReturn {
>     # fix up the overdues in accounts...
>     if ($borrowernumber) {
>         my $fix = _FixOverduesOnReturn( $borrowernumber, $item->itemnumber, $exemptfine, 'RETURNED' );
>-        defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, $item->itemnumber...) failed!";  # zero is OK, check defined
>+        defined($fix) or warn "_FixOverduesOnReturn($borrowernumber, ".$item->itemnumber."...) failed!";  # zero is OK, check defined
> 
>         if ( $issue and $issue->is_overdue($return_date) ) {
>         # fix fine days
>@@ -2460,15 +2460,16 @@ sub _FixOverduesOnReturn {
> 
>                 $credit->apply({ debits => [ $accountline ], offset_type => 'Forgiven' });
> 
>-                $accountline->status('FORGIVEN');
>-                $accountline->store();
>-
>                 if (C4::Context->preference("FinesLog")) {
>                     &logaction("FINES", 'MODIFY',$borrowernumber,"Overdue forgiven: item $item");
>                 }
>+
>+                $accountline->status('FORGIVEN');
>+                $accountline->store();
>             } else {
>                 $accountline->status($status);
>                 $accountline->store();
>+
>             }
>         }
>     );
>-- 
>2.11.0

Actions: View | Diff | Splinter Review

Attachments on bug 8338: 104841 | 104842 | 104900 | 104901 | 105496 | 105497 | 105498 | 106152 | 106153 | 106154 | 106155 | 106209 | 106523 | 106524 | 106525 | 106526 | 106527 | 107140 | 110640