From 867f88076eb47c434c3edf6f7903238b5a465cdb Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Fri, 16 Nov 2018 10:37:55 +0100 Subject: [PATCH] Bug 20598: (QA follow-up) Tiny fixes [1] Correct POD for _FixOverduesOnReturn Is called by AddReturn, AddRenewal and LostItem. Also tested in Circulation.t btw [2] $dbh is not used in _FixOverduesOnReturn [3] Moving all parameters to the first line. [4] Variable $uquery is not used too. Signed-off-by: Marcel de Rooy Signed-off-by: Nick Clemens --- C4/Circulation.pm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index ba4f63ea1b..0999a970fd 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -2299,22 +2299,20 @@ C<$itm> itemnumber C<$exemptfine> BOOL -- remove overdue charge associated with this issue. C<$dropboxmode> BOOL -- remove lastincrement on overdue charge associated with this issue. -Internal function, called only by AddReturn +Internal function =cut sub _FixOverduesOnReturn { - my ($borrowernumber, $item); - unless ($borrowernumber = shift) { + my ($borrowernumber, $item, $exemptfine, $dropbox ) = @_; + unless( $borrowernumber ) { warn "_FixOverduesOnReturn() not supplied valid borrowernumber"; return; } - unless ($item = shift) { + unless( $item ) { warn "_FixOverduesOnReturn() not supplied valid itemnumber"; return; } - my ($exemptfine, $dropbox) = @_; - my $dbh = C4::Context->dbh; # check for overdue fine my $accountline = Koha::Account::Lines->search( @@ -2329,7 +2327,6 @@ sub _FixOverduesOnReturn { )->next(); return 0 unless $accountline; # no warning, there's just nothing to fix - my $uquery; if ($exemptfine) { my $amountoutstanding = $accountline->amountoutstanding; -- 2.39.5