Bug 5929: use branch admin email for advance_notice.pl emails

[koha.git] / reviews / reviewswaiting.pl

diff --git a/reviews/reviewswaiting.pl b/reviews/reviewswaiting.pl
index aa3903e..4d28a96 100755 (executable)
--- a/reviews/reviewswaiting.pl
+++ b/reviews/reviewswaiting.pl
@@ -16,6 +16,8 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use warnings;
+
 use CGI;
 use C4::Auth;
 use C4::Output;
@@ -31,12 +33,12 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $query,
         type            => "intranet",
         authnotrequired => 0,
-        flagsrequired   => { catalogue => 1 },
+        flagsrequired   => { tools => 'moderate_comments' },
         debug           => 1,
     }
 );
 
-my $op       = $query->param('op');
+my $op       = $query->param('op') || '';
 my $reviewid = $query->param('reviewid');
 
 if ( $op eq 'approve' ) {
@@ -50,7 +52,7 @@ my $reviews = getallreviews(0);
 
 foreach ( @$reviews ) {
     my $borrowernumber = $_->{borrowernumber};
-    my $borrowerData   = GetMember($borrowernumber,'borrowernumber');
+    my $borrowerData   = GetMember('borrowernumber' => $borrowernumber);
     my $biblioData     = GetBiblioData($_->{biblionumber});
     # setting some borrower info into this hash
     $_->{bibliotitle} = $biblioData->{'title'};