Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Fixed a bug in issuing reserved books. Was calling non-existent

Browse source 
printreserve subroutine
This commit is contained in:
tonnesen 2001-01-23 00:12:49 +00:00
parent 7c52cda9d6
commit 3186e690ce
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
C4/Circulation/Circ2.pm
View file

@ -247,17 +247,17 @@ sub issuebook {
my ($resborrower, $flags)=getpatroninformation($env, $resbor,0); my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);
if ($responses->{2} eq '') { if ($responses->{2} eq '') {
$questionnumber=2; $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'; $defaultanswer='N';
last SWITCH; last SWITCH;
} elsif ($responses->{2} eq 'N') { } elsif ($responses->{2} eq 'N') {
printreserve($env, $resrec, $resborrower, $iteminformation); #printreserve($env, $resrec, $resborrower, $iteminformation);
$rejected=-1; $rejected=-1;
last SWITCH; last SWITCH;
} else { } else {
if ($responses->{3} eq '') { if ($responses->{3} eq '') {
$questionnumber=3; $questionnumber=3;
$question="Cancel reserve for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}?"; $question="Cancel reserve for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'})?";
$defaultanswer='N'; $defaultanswer='N';
last SWITCH; last SWITCH;
} elsif ($responses->{3} eq 'Y') { } elsif ($responses->{3} eq 'Y') {

6
circ/circulation.pl
View file

@ -55,6 +55,10 @@ sub issues {
print "Error issuing book: $rejected<br>\n"; print "Error issuing book: $rejected<br>\n";
} }
} }
my $responsesform='';
foreach (keys %responses) {
$responsesform.="<input type=hidden name=response-$_ value=$responses{$_}>\n";
}
if ($question) { if ($question) {
print << "EOF"; print << "EOF";
<table border=1 bgcolor=#dddddd> <table border=1 bgcolor=#dddddd>
@ -73,6 +77,7 @@ sub issues {
<input type=hidden name=borrnumber value=$borrnumber> <input type=hidden name=borrnumber value=$borrnumber>
<input type=hidden name=barcode value=$barcode> <input type=hidden name=barcode value=$barcode>
<input type=hidden name=questionnumber value=$questionnumber> <input type=hidden name=questionnumber value=$questionnumber>
$responsesform
<input type=hidden name=answer value=Y> <input type=hidden name=answer value=Y>
<input type=submit value=Yes> <input type=submit value=Yes>
</form> </form>
@ -83,6 +88,7 @@ sub issues {
<input type=hidden name=borrnumber value=$borrnumber> <input type=hidden name=borrnumber value=$borrnumber>
<input type=hidden name=barcode value=$barcode> <input type=hidden name=barcode value=$barcode>
<input type=hidden name=questionnumber value=$questionnumber> <input type=hidden name=questionnumber value=$questionnumber>
$responsesform
<input type=hidden name=answer value=N> <input type=hidden name=answer value=N>
<input type=submit value=No> <input type=submit value=No>
</form> </form>