@@ -, +, @@ --- C4/Review.pm | 19 +------------------ opac/opac-review.pl | 11 +++++++++-- 2 files changed, 10 insertions(+), 20 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 numberofreviewsbybiblionumber); + @EXPORT = qw(savereview numberofreviewsbybiblionumber); } =head1 NAME @@ -39,7 +39,6 @@ C4::Review - Perl Module containing routines for dealing with reviews of items use C4::Review; savereview($biblionumber,$borrowernumber,$review); - updatereview($biblionumber,$borrowernumber,$review); my $count=numberofreviewsbybiblionumber($biblionumber); =head1 DESCRIPTION @@ -66,22 +65,6 @@ sub savereview { $sth->execute( $borrowernumber, $biblionumber, $review ); } -=head2 updatereview - - updateview($biblionumber,$borrowernumber, $review); - -Update the review description in the 'reviews' database - -=cut - -sub updatereview { - my ( $biblionumber, $borrowernumber, $review ) = @_; - my $dbh = C4::Context->dbh; - my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?"; - my $sth = $dbh->prepare($query); - $sth->execute( $review, $borrowernumber, $biblionumber ); -} - =head2 numberofreviewsbybiblionumber my $count=numberofreviewsbybiblionumber($biblionumber); --- a/opac/opac-review.pl +++ a/opac/opac-review.pl @@ -26,6 +26,7 @@ use C4::Review; use C4::Biblio; use C4::Scrubber; use C4::Debug; +use Koha::DateUtils; use Koha::Reviews; my $query = new CGI; @@ -60,8 +61,14 @@ if (defined $review) { my $js_ok_review = $clean; $js_ok_review =~ s/"/"/g; # probably redundant w/ TMPL ESCAPE=JS $template->param(clean_review=>$js_ok_review); - if ($savedreview) { - updatereview($biblionumber, $borrowernumber, $clean); + if ($savedreview) { + $savedreview->set( + { + review => $clean, + approved => 0, + datereviewed => dt_from_string + } + )->store; } else { savereview($biblionumber, $borrowernumber, $clean); } --