From 4230d360d5c08844e5e38db2652fb7f0ee091379 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Thu, 8 Mar 2012 14:35:08 -0500 Subject: [PATCH] Bug 7597 - Part 5 - Remove my from $branch, which was masking previous declaration Signed-off-by: Nicole C. Engard Signed-off-by: Paul Poulain Signed-off-by: Jared Camins-Esakov --- C4/Accounts.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index 17db19125c..b7aef01ec8 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -780,7 +780,7 @@ C<$branch> is the branchcode of the library where the writeoff occurred. sub WriteOffFee { my ( $borrowernumber, $accountnum, $itemnum, $accounttype, $amount, $branch ) = @_; - my $branch ||= C4::Context->userenv->{branch}; + $branch ||= C4::Context->userenv->{branch}; my $manager_id = 0; $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; -- 2.39.5