From a06fd428263ee4900bac8c519885b20795bae8a4 Mon Sep 17 00:00:00 2001 From: tonnesen Date: Thu, 24 Oct 2002 20:10:48 +0000 Subject: [PATCH] Removing ReserveWaiting from returnbook() pending further discussion. --- C4/Circulation/Circ2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm index 65abf6aca1..22cf51e205 100755 --- a/C4/Circulation/Circ2.pm +++ b/C4/Circulation/Circ2.pm @@ -1030,7 +1030,7 @@ sub returnbook { # find reserves..... my ($resfound, $resrec) = CheckReserves($iteminformation->{'itemnumber'}); if ($resfound) { - my $tobrcd = ReserveWaiting($resrec->{'itemnumber'}, $resrec->{'borrowernumber'}); + #my $tobrcd = ReserveWaiting($resrec->{'itemnumber'}, $resrec->{'borrowernumber'}); $resrec->{'ResFound'} = $resfound; $messages->{'ResFound'} = $resrec; } @@ -1730,7 +1730,7 @@ sub calc_charges { } $sth1->finish; # close FILE; - return ($charge, $itemtype); + return ($charge, $item_type); } # FIXME - A virtually identical function appears in -- 2.39.5