Bug 15839: Koha::Reviews - Remove getnumberofreviews

[koha.git] / reviews / reviewswaiting.pl

diff --git a/reviews/reviewswaiting.pl b/reviews/reviewswaiting.pl
index b534391..017e162 100755 (executable)
--- a/reviews/reviewswaiting.pl
+++ b/reviews/reviewswaiting.pl
@@ -43,16 +43,19 @@ my $status   = $query->param('status') || 0;
 my $reviewid = $query->param('reviewid');
 my $page     = $query->param('page') || 1;
 my $count    = C4::Context->preference('numSearchResults') || 20;
-my $total    = numberofreviews($status);
+my $total    = Koha::Reviews->search({ approved => $status })->count;
 
 if ( $op eq 'approve' ) {
-    approvereview($reviewid);
+    my $review = Koha::Reviews->find( $reviewid );
+    $review->approve if $review;
 }
 elsif ( $op eq 'unapprove' ) {
-    unapprovereview($reviewid);
+    my $review = Koha::Reviews->find( $reviewid );
+    $review->unapprove if $review;
 }
 elsif ( $op eq 'delete' ) {
-    deletereview($reviewid);
+    my $review = Koha::Reviews->find( $reviewid );
+    $review->delete if $review;
 }
 
 my $reviews = Koha::Reviews->search(