@EXPORT = qw(
&GetRating
- &DelRating
);
}
my $rating_hashref = GetRating( $biblionumber, undef );
my $rating_hashref = GetRating( $biblionumber, $borrowernumber );
-Delete a rating for a bib
- my $rating_hashref = DelRating( $biblionumber, $borrowernumber );
-
All subroutines in Ratings.pm return a hashref which contain 4 keys
return \%rating_hash;
}
-=head2 DelRating
-
- my $rating_hashref = DelRating( $biblionumber, $borrowernumber );
-
-Delete a rating for a bib
-
-=cut
-
-sub DelRating {
- my ( $biblionumber, $borrowernumber ) = @_;
-
- my $rating = Koha::Database->new()->schema->resultset('Rating')->find(
- {
- borrowernumber => $borrowernumber,
- biblionumber => $biblionumber
- }
- );
-
- $rating->delete() if $rating;
-
- return GetRating($biblionumber);
-}
-
1;
__END__
$rating_value //= '';
if ( $rating_value eq '' ) {
-#### delete
- $rating = DelRating( $biblionumber, $loggedinuser );
+ Koha::Ratings->find( { biblionumber => $biblionumber, borrowernumber => $loggedinuser } )->delete;
+ $rating = Koha::Ratings->search({ biblionumber => $biblionumber })->get_rating;
}
elsif ( $rating_value and !$rating_old_value ) {