fix to pass the catalog maintenance flag along
authorrangi <rangi>
Wed, 31 Jul 2002 09:17:34 +0000 (09:17 +0000)
committerrangi <rangi>
Wed, 31 Jul 2002 09:17:34 +0000 (09:17 +0000)
html-template/detail.pl

index 324bd1b..d940ae3 100755 (executable)
@@ -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);