From 7c392f426d645f1795c15fdfe60f376e75ec8737 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 8 Dec 2004 10:30:29 +0000
Subject: [PATCH] *** empty log message ***

---
 ISBDdetail.pl | 1 -
 detail.pl     | 8 +++++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ISBDdetail.pl b/ISBDdetail.pl
index 1ec5eab034..073ffe20fc 100755
--- a/ISBDdetail.pl
+++ b/ISBDdetail.pl
@@ -79,7 +79,6 @@ my $res;
 	my $bloc = $ISBD;
 	my $blocres;
 	foreach my $isbdfield (split /#/,$bloc) {
-	warn "ISBDFIELD : $isbdfield";
 # 		$isbdfield= /(.?.?.?)/;
 		$isbdfield =~ /(\d\d\d)\|(.*)\|(.*)\|(.*)/;
 		my $fieldvalue=$1;
diff --git a/detail.pl b/detail.pl
index 2932a76bce..b296d9b590 100755
--- 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;
-- 
2.39.5