Lines 35-41
BEGIN {
Link Here
|
35 |
|
35 |
|
36 |
@EXPORT = qw( |
36 |
@EXPORT = qw( |
37 |
&GetRating |
37 |
&GetRating |
38 |
&AddRating |
|
|
39 |
&ModRating |
38 |
&ModRating |
40 |
&DelRating |
39 |
&DelRating |
41 |
); |
40 |
); |
Lines 59-67
Get a rating for a bib
Link Here
|
59 |
my $rating_hashref = GetRating( $biblionumber, undef ); |
58 |
my $rating_hashref = GetRating( $biblionumber, undef ); |
60 |
my $rating_hashref = GetRating( $biblionumber, $borrowernumber ); |
59 |
my $rating_hashref = GetRating( $biblionumber, $borrowernumber ); |
61 |
|
60 |
|
62 |
Add a rating for a bib |
|
|
63 |
my $rating_hashref = AddRating( $biblionumber, $borrowernumber, $rating_value ); |
64 |
|
65 |
Mod a rating for a bib |
61 |
Mod a rating for a bib |
66 |
my $rating_hashref = ModRating( $biblionumber, $borrowernumber, $rating_value ); |
62 |
my $rating_hashref = ModRating( $biblionumber, $borrowernumber, $rating_value ); |
67 |
|
63 |
|
Lines 192-223
sub GetRating {
Link Here
|
192 |
return \%rating_hash; |
188 |
return \%rating_hash; |
193 |
} |
189 |
} |
194 |
|
190 |
|
195 |
=head2 AddRating |
|
|
196 |
|
197 |
my $rating_hashref = AddRating( $biblionumber, $borrowernumber, $rating_value ); |
198 |
|
199 |
Add a rating for a bib |
200 |
|
201 |
This adds or updates a rating for a particular user on a biblio. If the value |
202 |
is 0, then the rating will be deleted. If the value is out of the range of |
203 |
0-5, nothing will happen. |
204 |
|
205 |
=cut |
206 |
|
207 |
sub AddRating { |
208 |
my ( $biblionumber, $borrowernumber, $rating_value ) = @_; |
209 |
|
210 |
my $rating = Koha::Database->new()->schema->resultset('Rating')->create( |
211 |
{ |
212 |
biblionumber => $biblionumber, |
213 |
borrowernumber => $borrowernumber, |
214 |
rating_value => $rating_value |
215 |
} |
216 |
); |
217 |
|
218 |
return GetRating( $biblionumber, $borrowernumber ); |
219 |
} |
220 |
|
221 |
=head2 ModRating |
191 |
=head2 ModRating |
222 |
|
192 |
|
223 |
my $rating_hashref = ModRating( $biblionumber, $borrowernumber, $rating_value ); |
193 |
my $rating_hashref = ModRating( $biblionumber, $borrowernumber, $rating_value ); |