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);
my $flag;
my $color='';
foreach $flag (sort keys %$flags) {
- warn $flag;
# my @itemswaiting='';
$flags->{$flag}->{'message'}=~s/\n/<br>/g;
if ($flags->{$flag}->{'noissues'}) {
<p>Not an issue but a renewal</p>
<!-- /TMPL_IF -->
<!-- TMPL_IF NAME="RESERVE_WAITING" -->
- <p>Reserve waiting</p>
- <!-- /TMPL_IF -->
+ <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 & issue?</p>
<!-- /TMPL_IF -->