From e0e3784e8b468b826c3ca63366cfeb3c2ba32696 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Thu, 24 Jul 2003 09:17:42 +0000
Subject: [PATCH] Fix for bug 293

---
 C4/Circulation/Circ2.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 833f990543..3afcd1cec0 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -684,7 +684,8 @@ sub issuebook {
 					} elsif ($responses->{3} eq 'Y') {
 						CancelReserve(0, $res->{'itemnumber'}, $res->{'borrowernumber'});
 					}
-				}
+
+}
 			} elsif ($restype eq "Reserved") {
 				# The item is on reserve for someone else.
 				my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);
@@ -694,6 +695,11 @@ sub issuebook {
 					$questionnumber=5;
 					$question="Reserved for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}) since $res->{'reservedate'} \nAllow issue?";
 					$defaultanswer='N';
+					if ($responses->{6} eq 'Y') {
+					   my $tobrcd = ReserveWaiting($res->{'itemnumber'}, $res->{'borrowernumber'});
+					   transferbook($tobrcd,$barcode, 1);
+					   $message = "Item should now be waiting at $branchname";
+                                        }
 					last SWITCH;
 				} elsif ($responses->{5} eq 'N') {
 					if ($responses->{6} eq '') {
-- 
2.39.5