Bug 15839: Koha::Reviews - Remove savereview

Signed-off-by: Marc Veron <veron@veron.ch>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2016-02-16 16:30:07 +00:00 committed by Kyle M Hall
parent 41fa333ec9
commit 092ae340ce
2 changed files with 9 additions and 22 deletions

View File

@ -47,24 +47,6 @@ Review.pm provides many routines for manipulating reviews.
=head1 FUNCTIONS
=head2 savereview
savereview($biblionumber,$borrowernumber, $review);
Save a review in the 'reviews' database
=cut
sub savereview {
my ( $biblionumber, $borrowernumber, $review ) = @_;
my $dbh = C4::Context->dbh;
my $query = "INSERT INTO reviews (borrowernumber,biblionumber,
review,approved,datereviewed) VALUES
(?,?,?,0,now())";
my $sth = $dbh->prepare($query);
$sth->execute( $borrowernumber, $biblionumber, $review );
}
=head2 numberofreviewsbybiblionumber
my $count=numberofreviewsbybiblionumber($biblionumber);

View File

@ -22,11 +22,11 @@ use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use C4::Output;
use C4::Review;
use C4::Biblio;
use C4::Scrubber;
use C4::Debug;
use Koha::DateUtils;
use Koha::Review;
use Koha::Reviews;
my $query = new CGI;
@ -69,9 +69,14 @@ if (defined $review) {
datereviewed => dt_from_string
}
)->store;
} else {
savereview($biblionumber, $borrowernumber, $clean);
}
} else {
Koha::Review->new(
{ biblionumber => $biblionumber,
borrowernumber => $borrowernumber,
review => $clean,
}
)->store;
}
unless (@errors){ $template->param(WINDOW_CLOSE=>1); }
}
}