fix to pass the catalog maintenance flag along
This commit is contained in:
parent
6c98407c18
commit
ccc1a1a354
1 changed files with 4 additions and 1 deletions
|
@ -31,10 +31,13 @@ while (<KC>) {
|
|||
}
|
||||
|
||||
my $biblionumber=$query->param('bib');
|
||||
my $type='intra';
|
||||
my $type=$query->param('type');
|
||||
|
||||
# change back when ive fixed request.pl
|
||||
my @items = ItemInfo(undef, $biblionumber, $type);
|
||||
foreach my $dat (@items){
|
||||
$dat->{'type'}=$type;
|
||||
}
|
||||
my $dat=bibdata($biblionumber);
|
||||
my ($authorcount, $addauthor)= &addauthor($biblionumber);
|
||||
my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
|
||||
|
|
Loading…
Reference in a new issue