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

Fix for bug 293

Browse source
This commit is contained in:
rangi 2003-07-24 09:17:42 +00:00
parent 4fe953202a
commit e0e3784e8b
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
C4/Circulation/Circ2.pm
View file

@ -684,7 +684,8 @@ sub issuebook {
} elsif ($responses->{3} eq 'Y') { } elsif ($responses->{3} eq 'Y') {
CancelReserve(0, $res->{'itemnumber'}, $res->{'borrowernumber'}); CancelReserve(0, $res->{'itemnumber'}, $res->{'borrowernumber'});
} }
}
}
} elsif ($restype eq "Reserved") { } elsif ($restype eq "Reserved") {
# The item is on reserve for someone else. # The item is on reserve for someone else.
my ($resborrower, $flags)=getpatroninformation($env, $resbor,0); my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);
@ -694,6 +695,11 @@ sub issuebook {
$questionnumber=5; $questionnumber=5;
$question="Reserved for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}) since $res->{'reservedate'} \nAllow issue?"; $question="Reserved for $resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}) since $res->{'reservedate'} \nAllow issue?";
$defaultanswer='N'; $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; last SWITCH;
} elsif ($responses->{5} eq 'N') { } elsif ($responses->{5} eq 'N') {
if ($responses->{6} eq '') { if ($responses->{6} eq '') {