@@ -, +, @@ --- C4/Review.pm | 20 +------------------- reviews/reviewswaiting.pl | 3 ++- 2 files changed, 3 insertions(+), 20 deletions(-) --- a/C4/Review.pm +++ a/C4/Review.pm @@ -27,8 +27,7 @@ use vars qw(@ISA @EXPORT); BEGIN { require Exporter; @ISA = qw(Exporter); - @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber - deletereview); + @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber); } =head1 NAME @@ -138,23 +137,6 @@ sub numberofreviewsbybiblionumber { return $sth->fetchrow; } -=head2 deletereview - - deletereview($reviewid); - -Takes a reviewid and deletes it - -=cut - -sub deletereview { - my ($reviewid) = @_; - my $dbh = C4::Context->dbh(); - my $query = "DELETE FROM reviews - WHERE reviewid=?"; - my $sth = $dbh->prepare($query); - $sth->execute($reviewid); -} - 1; __END__ --- a/reviews/reviewswaiting.pl +++ a/reviews/reviewswaiting.pl @@ -54,7 +54,8 @@ elsif ( $op eq 'unapprove' ) { $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( --