fix to pass the catalog maintenance flag along

This commit is contained in:
rangi 2002-07-31 09:17:34 +00:00
parent 6c98407c18
commit ccc1a1a354

View file

@ -31,10 +31,13 @@ while (<KC>) {
} }
my $biblionumber=$query->param('bib'); my $biblionumber=$query->param('bib');
my $type='intra'; my $type=$query->param('type');
# change back when ive fixed request.pl # change back when ive fixed request.pl
my @items = ItemInfo(undef, $biblionumber, $type); my @items = ItemInfo(undef, $biblionumber, $type);
foreach my $dat (@items){
$dat->{'type'}=$type;
}
my $dat=bibdata($biblionumber); my $dat=bibdata($biblionumber);
my ($authorcount, $addauthor)= &addauthor($biblionumber); my ($authorcount, $addauthor)= &addauthor($biblionumber);
my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber); my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);