From 264b8f0093ff809d437c7ffd747cbd09012dde0b Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Thu, 20 Jun 2002 20:10:08 +0000
Subject: [PATCH] Merged changes from rel-1-2 branch version 1.21.2.1, all
 fixes to warnings

---
 C4/Circulation/Circ2.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index d290993360..049155f8e2 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -613,7 +613,7 @@ sub fixaccountforlostandreturned {
 		          (borrowernumber, accountno, offsetaccount,  offsetamount)
 		          values
 		          ('$data->{'borrowernumber'}','$accdata->{'accountno'}','$nextaccntno','$newamtos')";
-		my $usth = $dbh->prepare($updquery);
+		$usth = $dbh->prepare($updquery);
 		$usth->execute;
 		$usth->finish;
 	    }
@@ -911,7 +911,7 @@ sub checkwaiting {
   $sth->execute();
   my $cnt=0;
   if (my $data=$sth->fetchrow_hashref) {
-    @itemswaiting[$cnt] =$data;
+    $itemswaiting[$cnt] =$data;
     $cnt ++
   }
   $sth->finish;
@@ -1002,7 +1002,7 @@ sub renewbook {
     $datedue = (1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
   }
   my @date = split("-",$datedue);
-  my $odatedue = (@date[2]+0)."-".(@date[1]+0)."-".@date[0];
+  my $odatedue = ($date[2]+0)."-".($date[1]+0)."-".$date[0];
   my $issquery = "select * from issues where borrowernumber='$bornum' and
     itemnumber='$itemno' and returndate is null";
   my $sth=$dbh->prepare($issquery);
@@ -1014,7 +1014,7 @@ sub renewbook {
     set date_due = '$datedue', renewals = '$renews'
     where borrowernumber='$bornum' and
     itemnumber='$itemno' and returndate is null";
-  my $sth=$dbh->prepare($updquery);
+  $sth=$dbh->prepare($updquery);
   
   $sth->execute;
   $sth->finish;
@@ -1043,7 +1043,7 @@ sub calc_charges {
 	    my $discount = $data2->{'rentaldiscount'};
 	    $charge = ($charge *(100 - $discount)) / 100;
 	}
-	$sth2->{'finish'};
+	$sth2->finish;
     }      
     $sth1->finish;
     return ($charge);
-- 
2.39.5