turned of the branchtransfer when an item is set to "waiting".

This commit is contained in:
finlayt 2002-08-21 04:29:03 +00:00
parent 4b1f369036
commit 26957b08de

View file

@ -99,7 +99,7 @@ if ($query->param('resbarcode')) {
my $slip = $query->param('resslip');
printslip(\%env, $slip);
if ($tobranchcd ne $branch) {
my ($transfered, $messages, $iteminfo) = transferbook($tobranchcd, $resbarcode, 1);
# my ($transfered, $messages, $iteminfo) = transferbook($tobranchcd, $resbarcode, 1);
$reservetext .= <<"EOF";
<font color='red' size='+2'>Item marked Waiting:</font><br>
Item: $iteminfo->{'title'} ($iteminfo->{'author'})<br>