another little tinker. long overdues are now requestable.

This commit is contained in:
finlayt 2002-08-22 04:45:07 +00:00
parent d8e359ce2f
commit d96ae9ae65
1 changed files with 1 additions and 3 deletions

View File

@ -83,15 +83,13 @@ for (my $i=0; $i<$count2; $i++) {
$data[$i]->{'dewey'}="" if ($data[$i]->{'dewey'} == 0);
warn "Itemlost: $data[$i]->{itemlost} \n";
$data[$i]->{'volumeddesc'} = "&nbsp;" unless $data[$i]->{'volumeddesc'};
$data[$i]->{'dewey'}=~ s/\.0000$//;
$data[$i]->{'dewey'}=~ s/00$//;
my $class="$data[$i]->{'classification'}$data[$i]->{'dewey'}$data[$i]->{'subclass'}";
my $select;
if (($data[$i]->{'notforloan'})
|| ($data[$i]->{'itemlost'} == 1)
|| ($data[$i]->{'itemlost'} == 2)) {
|| ($data[$i]->{'itemlost'} == 1)) {
$select = "Cannot be reserved.";
} else {
$select = " <input type=checkbox name=reqbib value=$data[$i]->{'biblioitemnumber'}><input type=hidden name=biblioitem value=$data[$i]->{'biblioitemnumber'}>";