[Koha-cvs] koha/C4/Circulation Circ2.pm [dev_week]

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/05/15 21:38:12

Modified files:
        C4/Circulation : Circ2.pm 

Log message:
        fixed strict warning, "my" variable $loanlength masks earlier 
declaration in same scop

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.87.2.14.2.25&r2=1.87.2.14.2.26

Patches:
Index: Circ2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Attic/Circ2.pm,v
retrieving revision 1.87.2.14.2.25
retrieving revision 1.87.2.14.2.26
diff -u -b -r1.87.2.14.2.25 -r1.87.2.14.2.26
--- Circ2.pm    15 May 2007 21:16:05 -0000      1.87.2.14.2.25
+++ Circ2.pm    15 May 2007 21:38:12 -0000      1.87.2.14.2.26
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.87.2.14.2.25 2007/05/15 21:16:05 sushi Exp $
+# $Id: Circ2.pm,v 1.87.2.14.2.26 2007/05/15 21:38:12 sushi Exp $
 
 #package to deal with Returns
 #written 3/11/99 by address@hidden
@@ -1019,37 +1019,37 @@
     return $loanlength->{issuelength} if defined $loanlength->{issuelength};
    warn 'lll'; 
     $sth->execute($borrowertype,$itemtype,"");
-    my $loanlength = $sth->fetchrow_hashref;
+    $loanlength = $sth->fetchrow_hashref;
     return $loanlength->{issuelength} if defined $loanlength->{issuelength};
     
    warn 'lll'; 
     $sth->execute($borrowertype,"*",$branchcode);
-    my $loanlength = $sth->fetchrow_hashref;
+    $loanlength = $sth->fetchrow_hashref;
     return $loanlength->{issuelength} if defined $loanlength->{issuelength};
 
    warn 'lll'; 
     $sth->execute("*",$itemtype,$branchcode);
-    my $loanlength = $sth->fetchrow_hashref;
+    $loanlength = $sth->fetchrow_hashref;
     return $loanlength->{issuelength} if defined $loanlength->{issuelength};
 
    warn 'lll'; 
     $sth->execute($borrowertype,"*","");
-    my $loanlength = $sth->fetchrow_hashref;
+    $loanlength = $sth->fetchrow_hashref;
     return $loanlength->{issuelength} if defined $loanlength->{issuelength};
 
    warn 'lll'; 
     $sth->execute("*","*",$branchcode);
-    my $loanlength = $sth->fetchrow_hashref;
+    $loanlength = $sth->fetchrow_hashref;
     return $loanlength->{issuelength} if defined $loanlength->{issuelength};
 
    warn 'lll'; 
     $sth->execute("*",$itemtype,"");
-    my $loanlength = $sth->fetchrow_hashref;
+    $loanlength = $sth->fetchrow_hashref;
     return $loanlength->{issuelength} if defined $loanlength->{issuelength};
 
    warn 'lll'; 
     $sth->execute("*","*","");
-    my $loanlength = $sth->fetchrow_hashref;
+    $loanlength = $sth->fetchrow_hashref;
     return $loanlength->{issuelength} if defined $loanlength->{issuelength};
    warn 'lll'; 
 ### return 21