|
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); |