BEGIN {
require Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(savereview updatereview numberofreviews numberofreviewsbybiblionumber);
+ @EXPORT = qw(savereview updatereview numberofreviewsbybiblionumber);
}
=head1 NAME
savereview($biblionumber,$borrowernumber,$review);
updatereview($biblionumber,$borrowernumber,$review);
- my $count=numberofreviews($status);
my $count=numberofreviewsbybiblionumber($biblionumber);
=head1 DESCRIPTION
$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);
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;
? 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 = Koha::Patron::Modifications->pending_count( $branch );
}
)->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){
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 );
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-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(
}
);
-my $pendingcomments = numberofreviews(0);
+my $pendingcomments = Koha::Reviews->search({ approved => 0 })->count;
my $pendingtags = get_count_by_tag_status(0);
$template->param(