From 48672886719ba49ec69304eb0b79d7c5089a0206 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Thu, 5 Sep 2002 00:16:39 +0000
Subject: [PATCH] changed the way Waiting items are transfered from returns.pl
 to Circ2.pm

---
 C4/Circulation/Circ2.pm | 2 +-
 circ/returns.pl         | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index b0349c5c52..bab5296de0 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -527,7 +527,7 @@ sub returnbook {
     }
     ($borrower) = getpatroninformation(\%env, $currentborrower, 0);
 # transfer book
-    my ($transfered, $mess, $item) = transferbook($branch, $barcode);
+    my ($transfered, $mess, $item) = transferbook($branch, $barcode, 1);
     if ($transfered) {
 	$messages->{'WasTransfered'};
     }
diff --git a/circ/returns.pl b/circ/returns.pl
index bd16853070..4463d51f38 100755
--- a/circ/returns.pl
+++ b/circ/returns.pl
@@ -210,8 +210,6 @@ if ($messages->{'ResFound'}) {
     my ($iteminfo) = getiteminformation(\%env, 0, $barcode);
 
     if ($res->{'ResFound'} eq "Waiting") {
-# transfer book
-	my ($transfered, $mess, $item) = transferbook($branch, $barcode, 1);
 	$reservetext = <<"EOF";
 <font color='red' size='+2'>Item marked Waiting:</font><br>
     Item $iteminfo->{'title'} ($iteminfo->{'author'}) <br>
-- 
2.39.5