[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'address@hidden;
 $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) {