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 $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);
|
||||||
|
|
Loading…
Reference in a new issue