From 01d6f11543cc1b3f6e3db9e5bfd8fc10d3ddbd8c Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Thu, 5 Sep 2002 00:06:30 +0000
Subject: [PATCH] Changed so that when a Waiting item is returned the holding
 branch is updated.

---
 circ/returns.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/circ/returns.pl b/circ/returns.pl
index 5482b879e8..bd16853070 100755
--- a/circ/returns.pl
+++ b/circ/returns.pl
@@ -210,6 +210,8 @@ 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>
@@ -279,7 +281,7 @@ EOF
 
 # collect the messages and put into message table....
 foreach my $code (keys %$messages) {
-    warn $code;
+#    warn $code;
     if ($code eq 'BadBarcode'){
 	$messagetext .= "<font color='red' size='+2'> No Item with barcode: $messages->{'BadBarcode'} </font> <br>";
     }
@@ -336,7 +338,7 @@ EOF
 	    $displayflag = "<font color=red>$flag</font>";
 	} else {
 	    $displayflag = $flag;
-	}
+	}  
 	if ($flag eq 'CHARGES') {
 	    $flaginfotext.= <<"EOF";
 <tr><td valign=top>$displayflag</td>
-- 
2.20.1