[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha detail.pl [rel_2_2]
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha detail.pl [rel_2_2] |
Date: |
Thu, 05 Apr 2007 07:00:51 +0000 |
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) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha detail.pl [rel_2_2],
Joshua Ferraro <=