Bug 7310: Code changes for Improving list permissions

[koha.git] / opac / opac-showreviews.pl

diff --git a/opac/opac-showreviews.pl b/opac/opac-showreviews.pl
index f1e0b53..449ffcd 100755 (executable)
--- a/opac/opac-showreviews.pl
+++ b/opac/opac-showreviews.pl
@@ -65,9 +65,20 @@ if($format eq "rss"){
         );
 }
 
+my $libravatar_enabled = 0;
+if ( C4::Context->preference('ShowReviewer') and C4::Context->preference('ShowReviewerPhoto')) {
+    eval {
+        require Libravatar::URL;
+        Libravatar::URL->import();
+    };
+    if ( !$@ ) {
+        $libravatar_enabled = 1;
+    }
+}
+
 my $reviews = getallreviews(1,$offset,$results_per_page);
 my $marcflavour      = C4::Context->preference("marcflavour");
-my $hits = numberofreviews();
+my $hits = numberofreviews(1);
 my $i = 0;
 my $latest_comment_date;
 for my $result (@$reviews){
@@ -90,8 +101,14 @@ for my $result (@$reviews){
        $result->{size} = $bib->{'size'};
        $result->{notes} = $bib->{'notes'};
        $result->{timestamp} = $bib->{'timestamp'};
+    $result->{borrtitle} = $borr->{'title'};
        $result->{firstname} = $borr->{'firstname'};
        $result->{surname} = $borr->{'surname'};
+    $result->{userid} = $borr->{'userid'};
+        if ($libravatar_enabled and $borr->{'email'}) {
+            $result->{avatarurl} = libravatar_url(email => $borr->{'email'}, size => 40, https => $ENV{HTTPS});
+        }
+
     if ($result->{borrowernumber} eq $borrowernumber) {
                $result->{your_comment} = 1;
        }