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
23 use vars qw($VERSION @ISA @EXPORT);
26 # set the version for version checking
30 @EXPORT = qw(getreview savereview updatereview numberofreviews
31 getreviews getallreviews approvereview deletereview);
36 C4::Review - Perl Module containing routines for dealing with reviews of items
42 my $review=getreview($biblionumber,$borrowernumber);
43 savereview($biblionumber,$borrowernumber,$review);
44 updatereview($biblionumber,$borrowernumber,$review);
45 my $count=numberofreviews($biblionumber);
46 my $reviews=getreviews($biblionumber);
47 my $reviews=getallreviews($status);
51 Review.pm provides many routines for manipulating reviews.
57 $review = getreview($biblionumber,$borrowernumber);
59 Takes a borrowernumber and a biblionumber and returns the review of that biblio
64 my ( $biblionumber, $borrowernumber ) = @_;
65 my $dbh = C4::Context->dbh;
67 "SELECT * FROM reviews WHERE biblionumber=? and borrowernumber=?";
68 my $sth = $dbh->prepare($query);
69 $sth->execute( $biblionumber, $borrowernumber );
70 return $sth->fetchrow_hashref();
74 my ( $biblionumber, $borrowernumber, $review ) = @_;
75 my $dbh = C4::Context->dbh;
76 my $query = "INSERT INTO reviews (borrowernumber,biblionumber,
77 review,approved,datereviewed) VALUES
79 my $sth = $dbh->prepare($query);
80 $sth->execute( $borrowernumber, $biblionumber, $review);
84 my ( $biblionumber, $borrowernumber, $review ) = @_;
85 my $dbh = C4::Context->dbh;
86 my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?";
87 my $sth = $dbh->prepare($query);
88 $sth->execute( $review, $borrowernumber, $biblionumber );
92 my ($biblionumber) = @_;
93 my $dbh = C4::Context->dbh;
95 "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
96 my $sth = $dbh->prepare($query);
97 $sth->execute( $biblionumber, 1 );
98 return $sth->fetchrow;
102 my ( $biblionumber, $approved ) = @_;
103 my $dbh = C4::Context->dbh;
105 "SELECT * FROM reviews WHERE biblionumber=? and approved=? order by datereviewed desc";
106 my $sth = $dbh->prepare($query) || warn $dbh->err_str;
107 $sth->execute( $biblionumber, $approved );
108 return $sth->fetchall_arrayref({});
113 my $dbh = C4::Context->dbh;
115 "SELECT * FROM reviews WHERE approved=? order by datereviewed desc";
116 my $sth = $dbh->prepare($query);
117 $sth->execute($status);
118 return $sth->fetchall_arrayref({});
123 approvereview($reviewid);
125 Takes a reviewid and marks that review approved
131 my $dbh = C4::Context->dbh();
132 my $query = "UPDATE reviews
135 my $sth = $dbh->prepare($query);
136 $sth->execute( 1, $reviewid );
141 deletereview($reviewid);
143 Takes a reviewid and deletes it
149 my $dbh = C4::Context->dbh();
150 my $query = "DELETE FROM reviews
152 my $sth = $dbh->prepare($query);
153 $sth->execute($reviewid);