Adding MIME and delimiter support to system preferences

[koha_fer] / detail.pl

diff --git a/detail.pl b/detail.pl
index 82d57e2..b296d9b 100755 (executable)
--- a/detail.pl
+++ b/detail.pl
@@ -48,13 +48,19 @@ my $dat=bibdata($biblionumber);
 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;
@@ -95,7 +101,8 @@ $template->param(startfrom => $startfrom+1,
                                                WEB_RESULTS => $webarray,
                                                SITE_RESULTS => $sitearray,
                                                loggedinuser => $loggedinuser,
-                                               biblionumber => $biblionumber);
+                                               biblionumber => $biblionumber,
+                                               );
 
 output_html_with_http_headers $query, $cookie, $template->output;