# Suite 330, Boston, MA 02111-1307 USA
use strict;
-require Exporter;
use C4::Context;
use vars qw($VERSION @ISA @EXPORT);
-# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+BEGIN {
+ # set the version for version checking
+ $VERSION = 3.00;
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT = qw(getreview savereview updatereview numberofreviews
+ getreviews getallreviews approvereview deletereview);
+}
=head1 NAME
use C4::Review;
-
my $review=getreview($biblionumber,$borrowernumber);
savereview($biblionumber,$borrowernumber,$review);
updatereview($biblionumber,$borrowernumber,$review);
=head1 FUNCTIONS
-=cut
-
-@ISA = qw(Exporter);
-@EXPORT = qw(getreview savereview updatereview numberofreviews
- getreviews getallreviews approvereview deletereview);
-
-use vars qw();
-
-my $DEBUG = 0;
-
=head2 getreview
$review = getreview($biblionumber,$borrowernumber);
Takes a borrowernumber and a biblionumber and returns the review of that biblio
-
=cut
sub getreview {
my $dbh = C4::Context->dbh;
my $query = "INSERT INTO reviews (borrowernumber,biblionumber,
review,approved,datereviewed) VALUES
- (?,?,?,?,now())";
+ (?,?,?,0,now())";
my $sth = $dbh->prepare($query);
- $sth->execute( $borrowernumber, $biblionumber, $review, 0 );
+ $sth->execute( $borrowernumber, $biblionumber, $review);
$sth->finish();
}
sub updatereview {
my ( $biblionumber, $borrowernumber, $review ) = @_;
my $dbh = C4::Context->dbh;
- my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=?
- WHERE borrowernumber=? and biblionumber=?";
+ my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?";
my $sth = $dbh->prepare($query);
- $sth->execute( $review, 0, $borrowernumber, $biblionumber );
+ $sth->execute( $review, $borrowernumber, $biblionumber );
$sth->finish();
}