@@ -, +, @@ --- C4/Review.pm | 22 +--------------------- mainpage.pl | 4 ++-- opac/opac-showreviews.pl | 2 +- reviews/reviewswaiting.pl | 2 +- tools/tools-home.pl | 7 +++---- 5 files changed, 8 insertions(+), 29 deletions(-) --- a/C4/Review.pm +++ a/C4/Review.pm @@ -27,7 +27,7 @@ use vars qw(@ISA @EXPORT); BEGIN { require Exporter; @ISA = qw(Exporter); - @EXPORT = qw(savereview updatereview numberofreviews numberofreviewsbybiblionumber); + @EXPORT = qw(savereview updatereview numberofreviewsbybiblionumber); } =head1 NAME @@ -40,7 +40,6 @@ C4::Review - Perl Module containing routines for dealing with reviews of items savereview($biblionumber,$borrowernumber,$review); updatereview($biblionumber,$borrowernumber,$review); - my $count=numberofreviews($status); my $count=numberofreviewsbybiblionumber($biblionumber); =head1 DESCRIPTION @@ -83,25 +82,6 @@ sub updatereview { $sth->execute( $review, $borrowernumber, $biblionumber ); } -=head2 numberofreviews - - my $count=numberofreviews( [$status] ); - -Return the number of reviews where in the 'reviews' database : 'approved' = $status -(By default $status = 1) - -=cut - -sub numberofreviews { - my ($param) = @_; - my $status = ( defined($param) ? $param : 1 ); - my $dbh = C4::Context->dbh; - my $query = "SELECT count(*) FROM reviews WHERE approved=?"; - my $sth = $dbh->prepare($query); - $sth->execute($status); - return $sth->fetchrow; -} - =head2 numberofreviewsbybiblionumber my $count=numberofreviewsbybiblionumber($biblionumber); --- a/mainpage.pl +++ a/mainpage.pl @@ -25,11 +25,11 @@ use C4::Output; use C4::Auth; use C4::Koha; use C4::NewsChannels; # GetNewsToDisplay -use C4::Review qw/numberofreviews/; use C4::Suggestions qw/CountSuggestion/; use C4::Tags qw/get_count_by_tag_status/; use Koha::Patron::Modifications; use Koha::Patron::Discharge; +use Koha::Reviews; my $query = new CGI; @@ -62,7 +62,7 @@ my $branch = ? C4::Context->userenv()->{'branch'} : undef; -my $pendingcomments = numberofreviews(0); +my $pendingcomments = Koha::Reviews->search({ approved => 0 })->count; my $pendingtags = get_count_by_tag_status(0); my $pendingsuggestions = CountSuggestion("ASKED"); my $pending_borrower_modifications = --- a/opac/opac-showreviews.pl +++ a/opac/opac-showreviews.pl @@ -85,7 +85,7 @@ my $reviews = Koha::Reviews->search( } )->unblessed; my $marcflavour = C4::Context->preference("marcflavour"); -my $hits = numberofreviews(1); +my $hits = Koha::Reviews->search({ approved => 1 })->count; my $i = 0; my $latest_comment_date; for my $result (@$reviews){ --- a/reviews/reviewswaiting.pl +++ a/reviews/reviewswaiting.pl @@ -43,7 +43,7 @@ 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' ) { my $review = Koha::Reviews->find( $reviewid ); --- a/tools/tools-home.pl +++ a/tools/tools-home.pl @@ -15,14 +15,13 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; -use C4::Review qw/numberofreviews/; use C4::Tags qw/get_count_by_tag_status/; +use Koha::Reviews; my $query = new CGI; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( @@ -36,7 +35,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( } ); -my $pendingcomments = numberofreviews(0); +my $pendingcomments = Koha::Reviews->search({ approved => 0 })->count; my $pendingtags = get_count_by_tag_status(0); $template->param( --