use C4::Search;
use C4::Auth;
use C4::Interface::CGI::Output;
+use C4::Date;
my $query=new CGI;
my $type=$query->param('type');
($type) || ($type='intra');
my $biblionumber=$query->param('bib');
-#my $type='intra'; # FIXME - There's already a $type in this scope
-
# change back when ive fixed request.pl
my @items = ItemInfo(undef, $biblionumber, $type);
my ($authorcount, $addauthor)= &addauthor($biblionumber);
my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
my ($websitecount, @websites) = &getwebsites($biblionumber);
+my ($subjectcount, $subjects) = &subject($biblionumber);
$dat->{'count'}=@items;
$dat->{'norequests'} = $norequests;
$dat->{'additional'}=$addauthor->[0]->{'author'};
for (my $i = 1; $i < $authorcount; $i++) {
- $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
+ $dat->{'additional'} .= " ; " . $addauthor->[$i]->{'author'};
+} # for
+
+$dat->{'subjects'}=$subjects->[0]->{'subject'};
+for (my $i = 1; $i < $subjectcount; $i++) {
+ $dat->{'subjects'} .= ", " . $subjects->[$i]->{'subject'};
} # for
my @results;
WEB_RESULTS => $webarray,
SITE_RESULTS => $sitearray,
loggedinuser => $loggedinuser,
- biblionumber => $biblionumber);
+ biblionumber => $biblionumber,
+ );
output_html_with_http_headers $query, $cookie, $template->output;