From 4252673d6c90af5c1fba200ee812763ce989a1ef Mon Sep 17 00:00:00 2001
From: Galen Charlton <galen.charlton@liblime.com>
Date: Thu, 3 Jan 2008 12:36:39 -0600
Subject: [PATCH] removed more redundant 'my' causing variable masking warnings

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Circulation.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index 4ee2e28075..f6505b6472 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -446,7 +446,7 @@ sub TooMany {
 
     # check the 2 parameters (branch / itemtype / default categorycode
     $sth->execute( '*', $type, $branch );
-    my $result = $sth->fetchrow_hashref;
+    $result = $sth->fetchrow_hashref;
 #     warn "*, $type, $branch = ".Data::Dumper::Dumper($result);
 
     if ( $result->{maxissueqty} ne '' ) {
@@ -470,7 +470,7 @@ sub TooMany {
     
     # check the 1 parameters (default branch / itemtype / categorycode
     $sth->execute( $cat_borrower, $type, '*' );
-    my $result = $sth->fetchrow_hashref;
+    $result = $sth->fetchrow_hashref;
 #     warn "$cat_borrower, $type, * = ".Data::Dumper::Dumper($result);
     
     if ( $result->{maxissueqty} ne '' ) {
@@ -494,7 +494,7 @@ sub TooMany {
 
     # check the 0 parameters (default branch / itemtype / default categorycode
     $sth->execute( '*', $type, '*' );
-    my $result = $sth->fetchrow_hashref;
+    $result = $sth->fetchrow_hashref;
 #     warn "*, $type, * = ".Data::Dumper::Dumper($result);
 
     if ( $result->{maxissueqty} ne '' ) {
@@ -507,7 +507,7 @@ sub TooMany {
 	}
     # now checking for total
     $sth->execute( '*', '*', '*' );
-    my $result = $sth->fetchrow_hashref;
+    $result = $sth->fetchrow_hashref;
     if ( $result->{maxissueqty} ne '' ) {
 		warn "checking total";
 		$sth2->execute( $borrower->{'borrowernumber'}, $type );
-- 
2.39.5