Lines 35-41
BEGIN {
Link Here
|
35 |
|
35 |
|
36 |
@EXPORT = qw( |
36 |
@EXPORT = qw( |
37 |
&GetRating |
37 |
&GetRating |
38 |
&ModRating |
|
|
39 |
&DelRating |
38 |
&DelRating |
40 |
); |
39 |
); |
41 |
} |
40 |
} |
Lines 58-66
Get a rating for a bib
Link Here
|
58 |
my $rating_hashref = GetRating( $biblionumber, undef ); |
57 |
my $rating_hashref = GetRating( $biblionumber, undef ); |
59 |
my $rating_hashref = GetRating( $biblionumber, $borrowernumber ); |
58 |
my $rating_hashref = GetRating( $biblionumber, $borrowernumber ); |
60 |
|
59 |
|
61 |
Mod a rating for a bib |
|
|
62 |
my $rating_hashref = ModRating( $biblionumber, $borrowernumber, $rating_value ); |
63 |
|
64 |
Delete a rating for a bib |
60 |
Delete a rating for a bib |
65 |
my $rating_hashref = DelRating( $biblionumber, $borrowernumber ); |
61 |
my $rating_hashref = DelRating( $biblionumber, $borrowernumber ); |
66 |
|
62 |
|
Lines 188-216
sub GetRating {
Link Here
|
188 |
return \%rating_hash; |
184 |
return \%rating_hash; |
189 |
} |
185 |
} |
190 |
|
186 |
|
191 |
=head2 ModRating |
|
|
192 |
|
193 |
my $rating_hashref = ModRating( $biblionumber, $borrowernumber, $rating_value ); |
194 |
|
195 |
Mod a rating for a bib |
196 |
|
197 |
=cut |
198 |
|
199 |
sub ModRating { |
200 |
my ( $biblionumber, $borrowernumber, $rating_value ) = @_; |
201 |
|
202 |
my $rating = Koha::Database->new()->schema->resultset('Rating')->find( |
203 |
{ |
204 |
borrowernumber => $borrowernumber, |
205 |
biblionumber => $biblionumber |
206 |
} |
207 |
); |
208 |
|
209 |
$rating->update( { rating_value => $rating_value } ); |
210 |
|
211 |
return GetRating( $biblionumber, $borrowernumber ); |
212 |
} |
213 |
|
214 |
=head2 DelRating |
187 |
=head2 DelRating |
215 |
|
188 |
|
216 |
my $rating_hashref = DelRating( $biblionumber, $borrowernumber ); |
189 |
my $rating_hashref = DelRating( $biblionumber, $borrowernumber ); |