From 3186e690cefe3a63a85e84bd3c4a2a4dd9276737 Mon Sep 17 00:00:00 2001 From: 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
\n"; } } + my $responsesform=''; + foreach (keys %responses) { + $responsesform.="\n"; + } if ($question) { print << "EOF"; @@ -73,6 +77,7 @@ sub issues { + $responsesform @@ -83,6 +88,7 @@ sub issues { + $responsesform -- 2.39.5