#
# This file is part of Koha.
#
-# Koha is free software; you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
-# version.
+# Koha is free software; you can redistribute it and/or modify it
+# under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
#
-# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+# Koha is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along
-# with Koha; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+# You should have received a copy of the GNU General Public License
+# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
use warnings;
use C4::Context;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw(@ISA @EXPORT);
BEGIN {
- # set the version for version checking
- $VERSION = 3.00;
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
- getreviews getallreviews approvereview deletereview);
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT = qw(savereview updatereview numberofreviewsbybiblionumber);
}
=head1 NAME
use C4::Review;
- my $review=getreview($biblionumber,$borrowernumber);
savereview($biblionumber,$borrowernumber,$review);
updatereview($biblionumber,$borrowernumber,$review);
- my $count=numberofreviews($biblionumber);
- my $reviews=getreviews($biblionumber);
- my $reviews=getallreviews($status);
+ my $count=numberofreviewsbybiblionumber($biblionumber);
=head1 DESCRIPTION
=head1 FUNCTIONS
-=head2 getreview
+=head2 savereview
- $review = getreview($biblionumber,$borrowernumber);
+ savereview($biblionumber,$borrowernumber, $review);
-Takes a borrowernumber and a biblionumber and returns the review of that biblio
+Save a review in the 'reviews' database
=cut
-sub getreview {
- my ( $biblionumber, $borrowernumber ) = @_;
- my $dbh = C4::Context->dbh;
- my $query =
- "SELECT * FROM reviews WHERE biblionumber=? and borrowernumber=?";
- my $sth = $dbh->prepare($query);
- $sth->execute( $biblionumber, $borrowernumber );
- return $sth->fetchrow_hashref();
-}
-
sub savereview {
my ( $biblionumber, $borrowernumber, $review ) = @_;
my $dbh = C4::Context->dbh;
my $query = "INSERT INTO reviews (borrowernumber,biblionumber,
- review,approved,datereviewed) VALUES
+ review,approved,datereviewed) VALUES
(?,?,?,0,now())";
my $sth = $dbh->prepare($query);
- $sth->execute( $borrowernumber, $biblionumber, $review);
+ $sth->execute( $borrowernumber, $biblionumber, $review );
}
-sub updatereview {
- my ( $biblionumber, $borrowernumber, $review ) = @_;
- my $dbh = C4::Context->dbh;
- my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?";
- my $sth = $dbh->prepare($query);
- $sth->execute( $review, $borrowernumber, $biblionumber );
-}
+=head2 updatereview
-sub numberofreviews {
- my ($status) = @_;
- my $dbh = C4::Context->dbh;
- my $query =
- "SELECT count(*) FROM reviews WHERE approved=?";
- my $sth = $dbh->prepare($query);
- $sth->execute( $status );
- return $sth->fetchrow;
-}
+ updateview($biblionumber,$borrowernumber, $review);
-sub numberofreviewsbybiblionumber {
- my ($biblionumber) = @_;
- my $dbh = C4::Context->dbh;
- my $query =
- "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
- my $sth = $dbh->prepare($query);
- $sth->execute( $biblionumber, 1 );
- return $sth->fetchrow;
-}
-
-sub getreviews {
- my ( $biblionumber, $approved ) = @_;
- my $dbh = C4::Context->dbh;
- my $query =
-"SELECT * FROM reviews WHERE biblionumber=? and approved=? order by datereviewed desc";
- my $sth = $dbh->prepare($query) || warn $dbh->err_str;
- $sth->execute( $biblionumber, $approved );
- return $sth->fetchall_arrayref({});
-}
-
-sub getallreviews {
- my ($status, $offset, $row_count) = @_;
- my @params = ($status,($offset ? $offset : 0),($row_count ? $row_count : 20));
- my $dbh = C4::Context->dbh;
- my $query =
- "SELECT * FROM reviews WHERE approved=? order by datereviewed desc LIMIT ?, ?";
- my $sth = $dbh->prepare($query) || warn $dbh->err_str;
- $sth->execute(@params);
- return $sth->fetchall_arrayref({});
-}
-
-=head2 approvereview
-
- approvereview($reviewid);
-
-Takes a reviewid and marks that review approved
+Update the review description in the 'reviews' database
=cut
-sub approvereview {
- my ($reviewid) = @_;
- my $dbh = C4::Context->dbh();
- my $query = "UPDATE reviews
- SET approved=?
- WHERE reviewid=?";
- my $sth = $dbh->prepare($query);
- $sth->execute( 1, $reviewid );
+sub updatereview {
+ my ( $biblionumber, $borrowernumber, $review ) = @_;
+ my $dbh = C4::Context->dbh;
+ my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?";
+ my $sth = $dbh->prepare($query);
+ $sth->execute( $review, $borrowernumber, $biblionumber );
}
-=head2 deletereview
+=head2 numberofreviewsbybiblionumber
- deletereview($reviewid);
+ my $count=numberofreviewsbybiblionumber($biblionumber);
-Takes a reviewid and deletes it
+Return the number of reviews approved for a given biblionumber
=cut
-sub deletereview {
- my ($reviewid) = @_;
- my $dbh = C4::Context->dbh();
- my $query = "DELETE FROM reviews
- WHERE reviewid=?";
- my $sth = $dbh->prepare($query);
- $sth->execute($reviewid);
+sub numberofreviewsbybiblionumber {
+ my ($biblionumber) = @_;
+ my $dbh = C4::Context->dbh;
+ my $query = "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
+ my $sth = $dbh->prepare($query);
+ $sth->execute( $biblionumber, 1 );
+ return $sth->fetchrow;
}
1;