added a Boolean: $norequests whhich is set on the template detail.tmpl so that the "requests" button only apears if it is actually possible to make a request. This is set by checking against the "notforloan" field on the itemtypes table.

This commit is contained in:
finlayt 2002-08-19 05:37:15 +00:00
parent bac842beda
commit b7a18e8035
1 changed files with 12 additions and 1 deletions

View File

@ -45,14 +45,24 @@ while (<KC>) {
$value=~s/^\s*//g;
$value=~s/\s*$//g;
$configfile{$variable}=$value;
}
}
}
my $biblionumber=$query->param('bib');
my $type='intra';
# change back when ive fixed request.pl
my @items = ItemInfo(undef, $biblionumber, $type);
my $norequests = 1;
foreach my $itm (@items) {
$norequests = 0 unless $itm->{'notforloan'};
}
warn "Biblionumber: $biblionumber";
warn "Norequests: $norequests";
my $dat=bibdata($biblionumber);
my ($authorcount, $addauthor)= &addauthor($biblionumber);
my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
@ -100,6 +110,7 @@ $template->param(prevstartfrom => $prevstartfrom);
$template->param(includesdir => $includes);
$template->param(BIBLIO_RESULTS => $resultsarray);
$template->param(ITEM_RESULTS => $itemsarray);
$template->param(norequests => $norequests);
$template->param(WEB_RESULTS => $webarray);
$template->param(SITE_RESULTS => $sitearray);
print "Content-Type: text/html\n\n", $template->output;