fix for bug 858 (no warning when issuing a reserved book)

This commit is contained in:
tipaul 2004-11-18 10:32:39 +00:00
parent 5cbc244b1d
commit 1424addcc2
3 changed files with 6 additions and 3 deletions

View file

@ -766,6 +766,7 @@ sub canbookbeissued {
my $branches = getbranches();
my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
$needsconfirmation{RESERVE_WAITING} = "$resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}, $branchname)";
CancelReserve(0, $res->{'itemnumber'}, $res->{'borrowernumber'});
} elsif ($restype eq "Reserved") {
# The item is on reserve for someone else.
my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);

View file

@ -319,7 +319,6 @@ sub patrontable {
my $flag;
my $color='';
foreach $flag (sort keys %$flags) {
warn $flag;
# my @itemswaiting='';
$flags->{$flag}->{'message'}=~s/\n/<br>/g;
if ($flags->{$flag}->{'noissues'}) {

View file

@ -184,7 +184,10 @@
<p>Not an issue but a renewal</p>
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME="RESERVE_WAITING" -->
<p>Reserve waiting</p>
<p>Reserve waiting for <!-- TMPL_VAR NAME="RESERVE_WAITING" --></p>
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME="RESERVED" -->
<p>Reserved by <!-- TMPL_VAR NAME="RESERVED" --></p>
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME="ISSUED_TO_ANOTHER" -->
<p>Item issued to <!-- TMPL_VAR NAME="ISSUED_TO_ANOTHER" -->. Return &amp; issue?</p>