From 3186e690cefe3a63a85e84bd3c4a2a4dd9276737 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Tue, 23 Jan 2001 00:12:49 +0000
Subject: [PATCH] Fixed a bug in issuing reserved books.  Was calling
 non-existent printreserve subroutine

---
 C4/Circulation/Circ2.pm | 6 +++---
 circ/circulation.pl     | 6 ++++++
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/C4/Circulation/Circ2.pm b/C4/Circulation/Circ2.pm
index 42fb2b3191..b5555ed76b 100755
--- a/C4/Circulation/Circ2.pm
+++ b/C4/Circulation/Circ2.pm
@@ -247,17 +247,17 @@ sub issuebook {
 	    my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);
 	    if ($responses->{2} eq '') {
 		$questionnumber=2;
-		$question="Reserved for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}) [$resbor]\nAllow issue?";
+		$question="Reserved for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}) since $resrec->{'reservedate'}\nAllow issue?";
 		$defaultanswer='N';
 		last SWITCH;
 	    } elsif ($responses->{2} eq 'N') {
-		printreserve($env, $resrec, $resborrower, $iteminformation);
+		#printreserve($env, $resrec, $resborrower, $iteminformation);
 		$rejected=-1;
 		last SWITCH;
 	    } else {
 		if ($responses->{3} eq '') {
 		    $questionnumber=3;
-		    $question="Cancel reserve for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}?";
+		    $question="Cancel reserve for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'})?";
 		    $defaultanswer='N';
 		    last SWITCH;
 		} elsif ($responses->{3} eq 'Y') {
diff --git a/circ/circulation.pl b/circ/circulation.pl
index 0030ae912e..baf2000bec 100755
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -55,6 +55,10 @@ sub issues {
 		    print "Error issuing book: $rejected<br>\n";
 		}
 	    }
+	    my $responsesform='';
+	    foreach (keys %responses) {
+		$responsesform.="<input type=hidden name=response-$_ value=$responses{$_}>\n";
+	    }
 	    if ($question) {
 		print << "EOF";
 		<table border=1 bgcolor=#dddddd>
@@ -73,6 +77,7 @@ sub issues {
 		<input type=hidden name=borrnumber value=$borrnumber>
 		<input type=hidden name=barcode value=$barcode>
 		<input type=hidden name=questionnumber value=$questionnumber>
+		$responsesform
 		<input type=hidden name=answer value=Y>
 		<input type=submit value=Yes>
 		</form>
@@ -83,6 +88,7 @@ sub issues {
 		<input type=hidden name=borrnumber value=$borrnumber>
 		<input type=hidden name=barcode value=$barcode>
 		<input type=hidden name=questionnumber value=$questionnumber>
+		$responsesform
 		<input type=hidden name=answer value=N>
 		<input type=submit value=No>
 		</form>
-- 
2.39.2