require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
- getallreviews approvereview unapprovereview deletereview);
+ approvereview unapprovereview deletereview);
}
=head1 NAME
updatereview($biblionumber,$borrowernumber,$review);
my $count=numberofreviews($status);
my $count=numberofreviewsbybiblionumber($biblionumber);
- my $reviews=getallreviews($status, [$offset], [$row_count]);
=head1 DESCRIPTION
return $sth->fetchrow;
}
-=head2 getallreviews
-
- my $reviews=getallreviews($status, [$offset], [$row_count]);
-
-Return all reviews where in the 'reviews' database : 'approved' = $status
-
-If offset and row_count are fiven, it's return all reviews between the
-$offset position and the ($offset + $row_count) position.
-(By default : $offset = 0 and $row_count = 20)
-
-=cut
-
-sub getallreviews {
- my ( $status, $offset, $row_count ) = @_;
- my @params = ( $status, ( $offset ? $offset : 0 ), ( $row_count ? $row_count : 20 ) );
- my $dbh = C4::Context->dbh;
- my $query = "SELECT * FROM reviews WHERE approved=? order by datereviewed desc LIMIT ?, ?";
- my $sth = $dbh->prepare($query);
- $sth->execute(@params);
- return $sth->fetchall_arrayref( {} );
-}
-
=head2 approvereview
approvereview($reviewid);
//<![CDATA[
$(document).ready(function() {
[% IF WINDOW_CLOSE %]
+ opener.location.reload();
window.close();
[% END %]
});
use C4::Biblio;
use C4::Members qw/GetMemberDetails/;
use Koha::DateUtils;
+use Koha::Reviews;
use POSIX qw(ceil strftime);
my $template_name;
my $count = C4::Context->preference('OPACnumSearchResults') || 20;
my $results_per_page = $query->param('count') || $count;
my $offset = $query->param('offset') || 0;
-my $page = $query->param('page') || 1;
-$offset = ($page-1)*$results_per_page if $page>1;
+my $page = $offset / $results_per_page + 1;
if ($format eq "rss") {
$template_name = "opac-showreviews-rss.tt";
}
}
-my $reviews = getallreviews(1,$offset,$results_per_page);
+my $reviews = Koha::Reviews->search(
+ { approved => 1 },
+ {
+ rows => $results_per_page,
+ page => $page,
+ order_by => { -desc => 'datereviewed' },
+ }
+)->unblessed;
my $marcflavour = C4::Context->preference("marcflavour");
my $hits = numberofreviews(1);
my $i = 0;
# 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::Review;
use C4::Members;
use C4::Biblio;
+use Koha::Reviews;
my $query = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
my $reviewid = $query->param('reviewid');
my $page = $query->param('page') || 1;
my $count = C4::Context->preference('numSearchResults') || 20;
-my $offset = ($page-1) * $count;
my $total = numberofreviews($status);
if ( $op eq 'approve' ) {
deletereview($reviewid);
}
-my $reviews = getallreviews($status,$offset,$count);
+my $reviews = Koha::Reviews->search(
+ { approved => $status },
+ {
+ rows => $count,
+ page => $page,
+ order_by => { -desc => 'datereviewed' },
+ }
+)->unblessed;
foreach ( @$reviews ) {
my $borrowernumber = $_->{borrowernumber};