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
\n";
}
}
+ my $responsesform='';
+ foreach (keys %responses) {
+ $responsesform.="\n";
+ }
if ($question) {
print << "EOF";