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

Joshua Ferraro jmf at kados.org
Thu Apr 13 19:25:00 CEST 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	Joshua Ferraro <kados at savannah.gnu.org>	06/04/13 17:25:00

Modified files:
	.              : detail.pl 

Log message:
	sorry, sloppiness on my part, using @results array now as originally
	intended.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/detail.pl.diff?only_with_tag=rel_2_2&tr1=1.24.2.7&tr2=1.24.2.8&r1=text&r2=text

Patches:
Index: koha/detail.pl
diff -u koha/detail.pl:1.24.2.7 koha/detail.pl:1.24.2.8
--- koha/detail.pl:1.24.2.7	Thu Apr 13 17:14:13 2006
+++ koha/detail.pl	Thu Apr 13 17:25:00 2006
@@ -49,7 +49,7 @@
 }
 
 $template->param(norequests => $norequests);
-
+my @results = ($dat,);
 ## get notes and subjects from MARC record
 my $dbh = C4::Context->dbh;
 my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
@@ -57,15 +57,14 @@
 if (C4::Context->preference("marc") eq "yes") {
 	my $marcflavour = C4::Context->preference("marcflavour");
 	my $marcnotesarray = &getMARCnotes($dbh,$bibid,$marcflavour);
-	$dat[0]->{MARCNOTES} = $marcnotesarray;
+	$results[0]->{MARCNOTES} = $marcnotesarray;
 	my $marcsubjctsarray = &getMARCsubjects($dbh,$bibid,$marcflavour);
-	$dat[0]->{MARCSUBJCTS} = $marcsubjctsarray;
+	$results[0]->{MARCSUBJCTS} = $marcsubjctsarray;
 	#$template->param(MARCNOTES => $marcnotesarray,
 	#				MARCSUBJCTS => $marcsubjctsarray,
 	#);
 }
 
-my @results = ($dat,);
 
 my $resultsarray=\@results;
 my $itemsarray=\@items;





More information about the Koha-cvs mailing list