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 );
94 my $dbh = C4::Context->dbh;
96 "SELECT count(*) FROM reviews WHERE approved=?";
97 my $sth = $dbh->prepare($query);
99 return $sth->fetchrow;
102 sub numberofreviewsbybiblionumber {
103 my ($biblionumber) = @_;
104 my $dbh = C4::Context->dbh;
106 "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
107 my $sth = $dbh->prepare($query);
108 $sth->execute( $biblionumber, 1 );
109 return $sth->fetchrow;
113 my ( $biblionumber, $approved ) = @_;
114 my $dbh = C4::Context->dbh;
116 "SELECT * FROM reviews WHERE biblionumber=? and approved=? order by datereviewed desc";
117 my $sth = $dbh->prepare($query) || warn $dbh->err_str;
118 $sth->execute( $biblionumber, $approved );
119 return $sth->fetchall_arrayref({});
123 my ($status, $offset, $row_count) = @_;
124 my @params = ($status,($offset ? $offset : 0),($row_count ? $row_count : 20));
125 my $dbh = C4::Context->dbh;
127 "SELECT * FROM reviews WHERE approved=? order by datereviewed desc LIMIT ?, ?";
128 my $sth = $dbh->prepare($query) || warn $dbh->err_str;
129 $sth->execute(@params);
130 return $sth->fetchall_arrayref({});
135 approvereview($reviewid);
137 Takes a reviewid and marks that review approved
143 my $dbh = C4::Context->dbh();
144 my $query = "UPDATE reviews
147 my $sth = $dbh->prepare($query);
148 $sth->execute( 1, $reviewid );
153 deletereview($reviewid);
155 Takes a reviewid and deletes it
161 my $dbh = C4::Context->dbh();
162 my $query = "DELETE FROM reviews
164 my $sth = $dbh->prepare($query);
165 $sth->execute($reviewid);