3 # Copyright 2000-2002 Katipo Communications
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
25 use vars qw($VERSION @ISA @EXPORT);
28 # set the version for version checking
32 @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
33 getreviews getallreviews approvereview deletereview);
38 C4::Review - Perl Module containing routines for dealing with reviews of items
44 my $review=getreview($biblionumber,$borrowernumber);
45 savereview($biblionumber,$borrowernumber,$review);
46 updatereview($biblionumber,$borrowernumber,$review);
47 my $count=numberofreviews($biblionumber);
48 my $reviews=getreviews($biblionumber);
49 my $reviews=getallreviews($status);
53 Review.pm provides many routines for manipulating reviews.
59 $review = getreview($biblionumber,$borrowernumber);
61 Takes a borrowernumber and a biblionumber and returns the review of that biblio
66 my ( $biblionumber, $borrowernumber ) = @_;
67 my $dbh = C4::Context->dbh;
69 "SELECT * FROM reviews WHERE biblionumber=? and borrowernumber=?";
70 my $sth = $dbh->prepare($query);
71 $sth->execute( $biblionumber, $borrowernumber );
72 return $sth->fetchrow_hashref();
76 my ( $biblionumber, $borrowernumber, $review ) = @_;
77 my $dbh = C4::Context->dbh;
78 my $query = "INSERT INTO reviews (borrowernumber,biblionumber,
79 review,approved,datereviewed) VALUES
81 my $sth = $dbh->prepare($query);
82 $sth->execute( $borrowernumber, $biblionumber, $review);
86 my ( $biblionumber, $borrowernumber, $review ) = @_;
87 my $dbh = C4::Context->dbh;
88 my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?";
89 my $sth = $dbh->prepare($query);
90 $sth->execute( $review, $borrowernumber, $biblionumber );
95 my $status = (defined($param) ? $param : 1);
96 my $dbh = C4::Context->dbh;
98 "SELECT count(*) FROM reviews WHERE approved=?";
99 my $sth = $dbh->prepare($query);
100 $sth->execute( $status );
101 return $sth->fetchrow;
104 sub numberofreviewsbybiblionumber {
105 my ($biblionumber) = @_;
106 my $dbh = C4::Context->dbh;
108 "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
109 my $sth = $dbh->prepare($query);
110 $sth->execute( $biblionumber, 1 );
111 return $sth->fetchrow;
115 my ( $biblionumber, $approved ) = @_;
116 my $dbh = C4::Context->dbh;
118 "SELECT * FROM reviews WHERE biblionumber=? and approved=? order by datereviewed desc";
119 my $sth = $dbh->prepare($query) || warn $dbh->err_str;
120 $sth->execute( $biblionumber, $approved );
121 return $sth->fetchall_arrayref({});
125 my ($status, $offset, $row_count) = @_;
126 my @params = ($status,($offset ? $offset : 0),($row_count ? $row_count : 20));
127 my $dbh = C4::Context->dbh;
129 "SELECT * FROM reviews WHERE approved=? order by datereviewed desc LIMIT ?, ?";
130 my $sth = $dbh->prepare($query) || warn $dbh->err_str;
131 $sth->execute(@params);
132 return $sth->fetchall_arrayref({});
137 approvereview($reviewid);
139 Takes a reviewid and marks that review approved
145 my $dbh = C4::Context->dbh();
146 my $query = "UPDATE reviews
149 my $sth = $dbh->prepare($query);
150 $sth->execute( 1, $reviewid );
155 deletereview($reviewid);
157 Takes a reviewid and deletes it
163 my $dbh = C4::Context->dbh();
164 my $query = "DELETE FROM reviews
166 my $sth = $dbh->prepare($query);
167 $sth->execute($reviewid);