[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