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 with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
25 use vars qw($VERSION @ISA @EXPORT);
28 # set the version for version checking
32 @EXPORT = qw(getreview savereview updatereview numberofreviews
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 ($biblionumber) = @_;
95 my $dbh = C4::Context->dbh;
97 "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
98 my $sth = $dbh->prepare($query);
99 $sth->execute( $biblionumber, 1 );
100 return $sth->fetchrow;
104 my ( $biblionumber, $approved ) = @_;
105 my $dbh = C4::Context->dbh;
107 "SELECT * FROM reviews WHERE biblionumber=? and approved=? order by datereviewed desc";
108 my $sth = $dbh->prepare($query) || warn $dbh->err_str;
109 $sth->execute( $biblionumber, $approved );
110 return $sth->fetchall_arrayref({});
115 my $dbh = C4::Context->dbh;
117 "SELECT * FROM reviews WHERE approved=? order by datereviewed desc";
118 my $sth = $dbh->prepare($query);
119 $sth->execute($status);
120 return $sth->fetchall_arrayref({});
125 approvereview($reviewid);
127 Takes a reviewid and marks that review approved
133 my $dbh = C4::Context->dbh();
134 my $query = "UPDATE reviews
137 my $sth = $dbh->prepare($query);
138 $sth->execute( 1, $reviewid );
143 deletereview($reviewid);
145 Takes a reviewid and deletes it
151 my $dbh = C4::Context->dbh();
152 my $query = "DELETE FROM reviews
154 my $sth = $dbh->prepare($query);
155 $sth->execute($reviewid);