Lines 28-34
BEGIN {
Link Here
|
28 |
require Exporter; |
28 |
require Exporter; |
29 |
@ISA = qw(Exporter); |
29 |
@ISA = qw(Exporter); |
30 |
@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber |
30 |
@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber |
31 |
getallreviews approvereview unapprovereview deletereview); |
31 |
approvereview unapprovereview deletereview); |
32 |
} |
32 |
} |
33 |
|
33 |
|
34 |
=head1 NAME |
34 |
=head1 NAME |
Lines 44-50
C4::Review - Perl Module containing routines for dealing with reviews of items
Link Here
|
44 |
updatereview($biblionumber,$borrowernumber,$review); |
44 |
updatereview($biblionumber,$borrowernumber,$review); |
45 |
my $count=numberofreviews($status); |
45 |
my $count=numberofreviews($status); |
46 |
my $count=numberofreviewsbybiblionumber($biblionumber); |
46 |
my $count=numberofreviewsbybiblionumber($biblionumber); |
47 |
my $reviews=getallreviews($status, [$offset], [$row_count]); |
|
|
48 |
|
47 |
|
49 |
=head1 DESCRIPTION |
48 |
=head1 DESCRIPTION |
50 |
|
49 |
|
Lines 139-166
sub numberofreviewsbybiblionumber {
Link Here
|
139 |
return $sth->fetchrow; |
138 |
return $sth->fetchrow; |
140 |
} |
139 |
} |
141 |
|
140 |
|
142 |
=head2 getallreviews |
|
|
143 |
|
144 |
my $reviews=getallreviews($status, [$offset], [$row_count]); |
145 |
|
146 |
Return all reviews where in the 'reviews' database : 'approved' = $status |
147 |
|
148 |
If offset and row_count are fiven, it's return all reviews between the |
149 |
$offset position and the ($offset + $row_count) position. |
150 |
(By default : $offset = 0 and $row_count = 20) |
151 |
|
152 |
=cut |
153 |
|
154 |
sub getallreviews { |
155 |
my ( $status, $offset, $row_count ) = @_; |
156 |
my @params = ( $status, ( $offset ? $offset : 0 ), ( $row_count ? $row_count : 20 ) ); |
157 |
my $dbh = C4::Context->dbh; |
158 |
my $query = "SELECT * FROM reviews WHERE approved=? order by datereviewed desc LIMIT ?, ?"; |
159 |
my $sth = $dbh->prepare($query); |
160 |
$sth->execute(@params); |
161 |
return $sth->fetchall_arrayref( {} ); |
162 |
} |
163 |
|
164 |
=head2 approvereview |
141 |
=head2 approvereview |
165 |
|
142 |
|
166 |
approvereview($reviewid); |
143 |
approvereview($reviewid); |