[Koha-cvs] koha/opac opac-detail.pl [dev_week]

Joshua Ferraro jmf at kados.org
Tue Aug 29 17:11:45 CEST 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Joshua Ferraro <kados>	06/08/29 15:11:45

Modified files:
	opac           : opac-detail.pl 

Log message:
	adding a new amazon.com item: ratings for individual reviews

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-detail.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.14.2.19.2.3&r2=1.14.2.19.2.4

Patches:
Index: opac-detail.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-detail.pl,v
retrieving revision 1.14.2.19.2.3
retrieving revision 1.14.2.19.2.4
diff -u -b -r1.14.2.19.2.3 -r1.14.2.19.2.4
--- opac-detail.pl	18 Aug 2006 16:14:15 -0000	1.14.2.19.2.3
+++ opac-detail.pl	29 Aug 2006 15:11:45 -0000	1.14.2.19.2.4
@@ -72,6 +72,8 @@
 	my $dbh = C4::Context->dbh;
 	my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
 	my $marcflavour = C4::Context->preference("marcflavour");
+	my $marcurlsarray = &getMARCurls($dbh,$bibid,$marcflavour);
+	$results[0]->{MARCURLS} = $marcurlsarray;
 	my $marcnotesarray = &getMARCnotes($dbh,$bibid,$marcflavour);
 	$results[0]->{MARCNOTES} = $marcnotesarray;
 	my $marcsubjctsarray = &getMARCsubjects($dbh,$bibid,$marcflavour);
@@ -122,7 +124,7 @@
                 	$template->param(rating => $product * 20);
         	}
         	for my $reviews ( @{ $details->{ Reviews }->{ CustomerReview } } ) {
-                	push @reviews, +{ Summary => $reviews->{ Summary }, Comment => $reviews->{ Comment }, };
+                	push @reviews, +{ Date => $reviews->{ Date }, Rating => $reviews->{ Rating }, Summary => $reviews->{ Summary }, Comment => $reviews->{ Comment }, };
         	}
 	}
 	$template->param( SIMILAR_PRODUCTS => \@products );





More information about the Koha-cvs mailing list