[Koha-cvs] koha detail.pl [rel_2_2]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Joshua Ferraro <kados>	07/04/05 07:00:51

Modified files:
	.              : detail.pl 

Log message:
	use MARC additional authors sub unless MARC support is off

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/detail.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.24.2.11&r2=1.24.2.12

Patches:
Index: detail.pl
===================================================================
RCS file: /sources/koha/koha/Attic/detail.pl,v
retrieving revision 1.24.2.11
retrieving revision 1.24.2.12
diff -u -b -r1.24.2.11 -r1.24.2.12
--- detail.pl	27 Feb 2007 17:40:52 -0000	1.24.2.11
+++ detail.pl	5 Apr 2007 07:00:51 -0000	1.24.2.12
@@ -30,7 +30,6 @@
 # change back when ive fixed request.pl
 my @items                                 = &ItemInfo(undef, $biblionumber, 'intra');
 my $dat                                   = &bibdata($biblionumber);
-my ($authorcount, $addauthor)             = &addauthor($biblionumber);
 my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
 my ($websitecount, @websites)             = &getwebsites($biblionumber);
 my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
@@ -38,10 +37,13 @@
 $dat->{'count'}=@items;
 $template->param("candelete"=>1) if ($dat->{'count'}==0||C4::Context->userenv->{flags} eq "1");
 
-$dat->{'additional'}=$addauthor->[0]->{'author'};
-for (my $i = 1; $i < $authorcount; $i++) {
+unless (C4::Context->preference('marc')) {
+	my ($authorcount, $addauthor)             = &addauthor($biblionumber);
+	$dat->{'additional'}=$addauthor->[0]->{'author'};
+	for (my $i = 1; $i < $authorcount; $i++) {
         $dat->{'additional'} .= " ; " . $addauthor->[$i]->{'author'};
-} # for
+	} # for
+}
 
 my $norequests = 1;
 foreach my $itm (@items) {