Bug 7597 - Part 5 - Remove my from $branch, which was masking previous declaration
authorKyle M Hall <kyle@bywatersolutions.com>
Thu, 8 Mar 2012 19:35:08 +0000 (14:35 -0500)
committerPaul Poulain <paul.poulain@biblibre.com>
Wed, 21 Mar 2012 16:13:43 +0000 (17:13 +0100)
Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
C4/Accounts.pm

index 17db191..b7aef01 100644 (file)
@@ -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;