From 91fc634cdd1b33324e393eff9a2197bd8e7bbf1e Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Thu, 15 Aug 2002 03:31:02 +0000
Subject: [PATCH] Fixed a really terrible bug! Took out the fixpriorities call
 in FillReserve. This is not necesary because the priorities are fixed up when
 the item is set to waiting in ReserveWaiting.

---
 C4/Reserves2.pm | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/C4/Reserves2.pm b/C4/Reserves2.pm
index 514255bbc8..b3a7f03f61 100755
--- a/C4/Reserves2.pm
+++ b/C4/Reserves2.pm
@@ -65,7 +65,6 @@ sub FindReserves {
                     (found <> 'F' or found is NULL)";
   }
   $query.=" order by priority";
-  warn $query;
   my $sth=$dbh->prepare($query);
   $sth->execute;
   my $i=0;
@@ -123,12 +122,7 @@ sub CheckReserves {
 		}
 	    }
 	}
-	warn "highest = $highest";
 	$highest->{'itemnumber'} = $item;
-	foreach my $key (keys %$highest) {
-	    warn "$key : $highest->{$key}\n";
-	}
-
 	return ("Reserved", $highest);
     } else {
 	return (0, 0);
@@ -202,8 +196,6 @@ sub FillReserve {
     $sth->execute;
     $sth->finish;
     $dbh->disconnect;
-# now fix the priority on the others....
-    fixpriority($res->{'priority'}, $biblio);
 }
 
 sub fixpriority {
@@ -336,7 +328,7 @@ sub CreateReserve {
 #    print $fee;
     my $nextacctno = &getnextacctno($env,$borrnum,$dbh);   
     my $updquery = "insert into accountlines       
-    (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding)                                              
+    (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding)
 						          values
     ($borrnum,$nextacctno,now(),$fee,'Reserve Charge - $title','Res',$fee)";          
     my $usth = $dbh->prepare($updquery);                      
-- 
2.39.5