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
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
25 use vars qw(@ISA @EXPORT);
30 @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber);
35 C4::Review - Perl Module containing routines for dealing with reviews of items
41 my $review=getreview($biblionumber,$borrowernumber);
42 savereview($biblionumber,$borrowernumber,$review);
43 updatereview($biblionumber,$borrowernumber,$review);
44 my $count=numberofreviews($status);
45 my $count=numberofreviewsbybiblionumber($biblionumber);
49 Review.pm provides many routines for manipulating reviews.
55 $review = getreview($biblionumber,$borrowernumber);
57 Takes a borrowernumber and a biblionumber and returns the review of that biblio
62 my ( $biblionumber, $borrowernumber ) = @_;
63 my $dbh = C4::Context->dbh;
64 my $query = "SELECT * FROM reviews WHERE biblionumber=? and borrowernumber=?";
65 my $sth = $dbh->prepare($query);
66 $sth->execute( $biblionumber, $borrowernumber );
67 return $sth->fetchrow_hashref();
72 savereview($biblionumber,$borrowernumber, $review);
74 Save a review in the 'reviews' database
79 my ( $biblionumber, $borrowernumber, $review ) = @_;
80 my $dbh = C4::Context->dbh;
81 my $query = "INSERT INTO reviews (borrowernumber,biblionumber,
82 review,approved,datereviewed) VALUES
84 my $sth = $dbh->prepare($query);
85 $sth->execute( $borrowernumber, $biblionumber, $review );
90 updateview($biblionumber,$borrowernumber, $review);
92 Update the review description in the 'reviews' database
97 my ( $biblionumber, $borrowernumber, $review ) = @_;
98 my $dbh = C4::Context->dbh;
99 my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?";
100 my $sth = $dbh->prepare($query);
101 $sth->execute( $review, $borrowernumber, $biblionumber );
104 =head2 numberofreviews
106 my $count=numberofreviews( [$status] );
108 Return the number of reviews where in the 'reviews' database : 'approved' = $status
109 (By default $status = 1)
113 sub numberofreviews {
115 my $status = ( defined($param) ? $param : 1 );
116 my $dbh = C4::Context->dbh;
117 my $query = "SELECT count(*) FROM reviews WHERE approved=?";
118 my $sth = $dbh->prepare($query);
119 $sth->execute($status);
120 return $sth->fetchrow;
123 =head2 numberofreviewsbybiblionumber
125 my $count=numberofreviewsbybiblionumber($biblionumber);
127 Return the number of reviews approved for a given biblionumber
131 sub numberofreviewsbybiblionumber {
132 my ($biblionumber) = @_;
133 my $dbh = C4::Context->dbh;
134 my $query = "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
135 my $sth = $dbh->prepare($query);
136 $sth->execute( $biblionumber, 1 );
137 return $sth->fetchrow;