use C4::Auth;
use C4::Output;
use C4::Context;
-use C4::Review;
-use C4::Members;
use C4::Biblio;
+use Koha::Biblios;
+use Koha::Patrons;
use Koha::Reviews;
my $query = new CGI;
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_limited({ 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(
+my $reviews = Koha::Reviews->search_limited(
{ approved => $status },
{
rows => $count,
}
)->unblessed;
-foreach ( @$reviews ) {
- my $borrowernumber = $_->{borrowernumber};
- my $borrowerData = GetMember('borrowernumber' => $borrowernumber);
- my $biblioData = GetBiblioData($_->{biblionumber});
+for my $review ( @$reviews ) {
+ my $biblio = Koha::Biblios->find( $review->{biblionumber} );
# setting some borrower info into this hash
- $_->{bibliotitle} = $biblioData->{'title'};
- $_->{surname} = $borrowerData->{'surname'};
- $_->{firstname} = $borrowerData->{'firstname'};
+ $review->{bibliotitle} = $biblio->title;
+
+ my $borrowernumber = $review->{borrowernumber};
+ my $patron = Koha::Patrons->find( $borrowernumber);
+ if ( $patron ) {
+ $review->{patron} = $patron;
+ }
}
my $url = "/cgi-bin/koha/reviews/reviewswaiting.pl?status=$status";