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(savereview updatereview numberofreviews numberofreviewsbybiblionumber);
35 C4::Review - Perl Module containing routines for dealing with reviews of items
41 savereview($biblionumber,$borrowernumber,$review);
42 updatereview($biblionumber,$borrowernumber,$review);
43 my $count=numberofreviews($status);
44 my $count=numberofreviewsbybiblionumber($biblionumber);
48 Review.pm provides many routines for manipulating reviews.
54 savereview($biblionumber,$borrowernumber, $review);
56 Save a review in the 'reviews' database
61 my ( $biblionumber, $borrowernumber, $review ) = @_;
62 my $dbh = C4::Context->dbh;
63 my $query = "INSERT INTO reviews (borrowernumber,biblionumber,
64 review,approved,datereviewed) VALUES
66 my $sth = $dbh->prepare($query);
67 $sth->execute( $borrowernumber, $biblionumber, $review );
72 updateview($biblionumber,$borrowernumber, $review);
74 Update the review description in the 'reviews' database
79 my ( $biblionumber, $borrowernumber, $review ) = @_;
80 my $dbh = C4::Context->dbh;
81 my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?";
82 my $sth = $dbh->prepare($query);
83 $sth->execute( $review, $borrowernumber, $biblionumber );
86 =head2 numberofreviews
88 my $count=numberofreviews( [$status] );
90 Return the number of reviews where in the 'reviews' database : 'approved' = $status
91 (By default $status = 1)
97 my $status = ( defined($param) ? $param : 1 );
98 my $dbh = C4::Context->dbh;
99 my $query = "SELECT count(*) FROM reviews WHERE approved=?";
100 my $sth = $dbh->prepare($query);
101 $sth->execute($status);
102 return $sth->fetchrow;
105 =head2 numberofreviewsbybiblionumber
107 my $count=numberofreviewsbybiblionumber($biblionumber);
109 Return the number of reviews approved for a given biblionumber
113 sub numberofreviewsbybiblionumber {
114 my ($biblionumber) = @_;
115 my $dbh = C4::Context->dbh;
116 my $query = "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
117 my $sth = $dbh->prepare($query);
118 $sth->execute( $biblionumber, 1 );
119 return $sth->fetchrow;