turned of the branchtransfer when an item is set to "waiting".
authorfinlayt <finlayt>
Wed, 21 Aug 2002 04:29:03 +0000 (04:29 +0000)
committerfinlayt <finlayt>
Wed, 21 Aug 2002 04:29:03 +0000 (04:29 +0000)
circ/returns.pl

index c1826e7..4e67183 100755 (executable)
@@ -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>