From d1601b26a61d0a85b19344f28638424ede441812 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Tue, 8 Apr 2008 09:50:19 -0500 Subject: [PATCH] Quell 7 warnings: "my" variable $irule masks earlier declaration in same scope. Signed-off-by: Joshua Ferraro --- C4/Circulation.pm | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index 634135c26f..964d071691 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -1112,37 +1112,38 @@ sub GetIssuingRule { my ( $borrowertype, $itemtype, $branchcode ) = @_; my $dbh = C4::Context->dbh; my $sth = $dbh->prepare( "select * from issuingrules where categorycode=? and itemtype=? and branchcode=? and issuelength is not null" ); - + my $irule; + $sth->execute( $borrowertype, $itemtype, $branchcode ); - my $irule = $sth->fetchrow_hashref; + $irule = $sth->fetchrow_hashref; return $irule if defined($irule) ; $sth->execute( $borrowertype, $itemtype, "*" ); - my $irule = $sth->fetchrow_hashref; + $irule = $sth->fetchrow_hashref; return $irule if defined($irule) ; $sth->execute( $borrowertype, "*", $branchcode ); - my $irule = $sth->fetchrow_hashref; + $irule = $sth->fetchrow_hashref; return $irule if defined($irule) ; $sth->execute( "*", $itemtype, $branchcode ); - my $irule = $sth->fetchrow_hashref; + $irule = $sth->fetchrow_hashref; return $irule if defined($irule) ; $sth->execute( $borrowertype, "*", "*" ); - my $irule = $sth->fetchrow_hashref; + $irule = $sth->fetchrow_hashref; return $irule if defined($irule) ; $sth->execute( "*", "*", $branchcode ); - my $irule = $sth->fetchrow_hashref; + $irule = $sth->fetchrow_hashref; return $irule if defined($irule) ; $sth->execute( "*", $itemtype, "*" ); - my $irule = $sth->fetchrow_hashref; + $irule = $sth->fetchrow_hashref; return $irule if defined($irule) ; $sth->execute( "*", "*", "*" ); - my $irule = $sth->fetchrow_hashref; + $irule = $sth->fetchrow_hashref; return $irule if defined($irule) ; # if no rule matches, -- 2.39.2