Attachment #38986 for bug #13969

View | Details | Raw Unified | Return to bug 13969
Collapse All | Expand All




use vars qw($VERSION @ISA @EXPORT);

BEGIN {
    # set the version for version checking
    $VERSION = 3.07.00.049;
    require Exporter;
    @ISA    = qw(Exporter);
    @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
      getreviews getallreviews approvereview unapprovereview deletereview);
}

=head1 NAME

sub getreview {
    my ( $biblionumber, $borrowernumber ) = @_;
    my $dbh   = C4::Context->dbh;
    my $query = "SELECT * FROM reviews WHERE biblionumber=? and borrowernumber=?";
    my $sth   = $dbh->prepare($query);
    my $sth = $dbh->prepare($query);
    $sth->execute( $biblionumber, $borrowernumber );
    return $sth->fetchrow_hashref();
}

  review,approved,datereviewed) VALUES
  (?,?,?,0,now())";
    my $sth = $dbh->prepare($query);
    $sth->execute( $borrowernumber, $biblionumber, $review );
}

=head2 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 );
}



sub numberofreviews {
    my ($param) = @_;
    my $status = ( defined($param) ? $param : 1 );
    my $dbh    = C4::Context->dbh;
    my $query  = "SELECT count(*) FROM reviews WHERE approved=?";
    my $sth    = $dbh->prepare($query);
    $sth->execute($status);
    return $sth->fetchrow;
  return $sth->fetchrow;
}

=head2 numberofreviewsbybiblionumber

sub numberofreviewsbybiblionumber {
    my ($biblionumber) = @_;
    my $dbh            = C4::Context->dbh;
    my $query          = "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
    my $sth            = $dbh->prepare($query);
    my $sth = $dbh->prepare($query);
    $sth->execute( $biblionumber, 1 );
    return $sth->fetchrow;
}

=head2 getreviews

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);
    my $sth = $dbh->prepare($query);
    $sth->execute( $biblionumber, $approved );
    return $sth->fetchall_arrayref( {} );
}

=head2 getallreviews

=cut

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);
    my $sth = $dbh->prepare($query);
    $sth->execute(@params);
    return $sth->fetchall_arrayref( {} );
}

=head2 approvereview




use Time::Piece;

BEGIN {
    use_ok('C4::Biblio');
    use_ok('C4::Review');
    use_ok('Koha::Borrower');
    use_ok('MARC::Record');
}

can_ok(
    'C4::Review', qw(
      getreview
      savereview
      updatereview
      numberofreviews
      numberofreviewsbybiblionumber
      getreviews
      getallreviews
      approvereview
      unapprovereview
      deletereview )
);


my $dbh = C4::Context->dbh;
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;


# ---------- Some borrowers for testing -------------------
my $categorycode = Koha::Database->new()->schema()->resultset('Category')->first()->categorycode();
my $branchcode   = Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode();

my $b1 = Koha::Borrower->new(
    {   surname      => 'Borrower 1',
        surname      => 'Borrower 1',
        branchcode   => $branchcode,
        categorycode => $categorycode
    }

$b1->store();

my $b2 = Koha::Borrower->new(
    {   surname      => 'Borrower 2',
        surname      => 'Borrower 2',
        branchcode   => $branchcode,
        categorycode => $categorycode
    }

$b2->store();

my $b3 = Koha::Borrower->new(
    {   surname      => 'Borrower 3',
        surname      => 'Borrower 3',
        branchcode   => $branchcode,
        categorycode => $categorycode
    }
);
$b3->store();


# ---------- Some biblios for testing -------------------
my ($biblionumber1) = AddBiblio( MARC::Record->new, '' );
my ($biblionumber2) = AddBiblio( MARC::Record->new, '' );
my ($biblionumber3) = AddBiblio( MARC::Record->new, '' );


# ---------- Some reviews for testing -------------------
my $rev1 = 'Review 1';
my $rev2 = 'Review 2';
my $rev3 = 'Review 3';


# ---------- Testing savereview ---------------------------
my $date = Time::Piece::localtime->strftime('%F %T');

savereview( $biblionumber1, $b1->borrowernumber, $rev1 );

my $query = '
  SELECT count(*)
  FROM reviews
';
my $count = $dbh->selectrow_array($query);
is( $count, 1, 'There is 1 review' );
my $count = $sth->fetchrow_array;
is ($count, 1, 'There is 1 review');

$query = '
  SELECT reviewid, borrowernumber, biblionumber, review, approved, datereviewed
  FROM reviews
';
my ( $reviewid, $borrowernumber, $biblionumber, $review, $approved, $datereviewed ) = $dbh->selectrow_array($query);
is( $borrowernumber, $b1->borrowernumber, 'borrowernumber field is good' );
is( $biblionumber,   $biblionumber1,      'biblionumber field is good' );
is( $review,         $rev1,               'review field is good' );
is( $approved,       0,                   'approved field is 0 by default' );
is( $datereviewed,   $date,               'datereviewed field is good' );
is ($approved,       0,                   'approved field is 0 by default');
is ($datereviewed,   $date,               'datereviewed field is good'    );

# We add some others reviews
savereview( $biblionumber1, $b2->borrowernumber, $rev2 );
savereview( $biblionumber3, $b2->borrowernumber, $rev3 );


# ---------- Testing getreview ----------------------------
my $review1 = getreview( $biblionumber1, $b1->borrowernumber );
my $review2 = getreview( $biblionumber1, $b2->borrowernumber );
my $review3 = getreview( $biblionumber3, $b2->borrowernumber );

$query = '
  SELECT count(*)
  FROM reviews
';
$count = $dbh->selectrow_array($query);
is( $count, 3, 'There are 3 reviews' );

isa_ok( $review1, 'HASH', '$review1 is defined as a hash' );
is( $review1->{borrowernumber}, $b1->borrowernumber, 'borrowernumber field is good' );
is( $review1->{biblionumber},   $biblionumber1,      'biblionumber field is good' );
is( $review1->{review},         $rev1,               'review field is good' );
is( $review1->{approved},       0,                   'approved field is 0 by default' );
cmp_ok( $review1->{datereviewed}, 'ge', $date, 'datereviewed field is good' );

isa_ok( $review2, 'HASH', '$review2 is defined as a hash' );
is( $review2->{borrowernumber}, $b2->borrowernumber, 'borrowernumber field is good' );
is( $review2->{biblionumber},   $biblionumber1,      'biblionumber field is good' );
is( $review2->{review},         $rev2,               'review field is good' );
is( $review2->{approved},       0,                   'approved field is 0 by default' );
cmp_ok( $review2->{datereviewed}, 'ge', $date, 'datereviewed field is good' );

isa_ok( $review3, 'HASH', '$review3 is defined as a hash' );
is( $review3->{borrowernumber}, $b2->borrowernumber, 'borrowernumber field is good' );
is( $review3->{biblionumber},   $biblionumber3,      'biblionumber field is good' );
is( $review3->{review},         $rev3,               'review field is good' );
is( $review3->{approved},       0,                   'approved field is 0 by default' );
cmp_ok( $review3->{datereviewed}, 'ge', $date, 'datereviewed field is good' );
is ($review3->{approved},       0,                   'approved field is 0 by default');
cmp_ok ($review3->{datereviewed}, 'ge' ,$date , 'datereviewed field is good');


# ---------- Testing getreviews ---------------------------
my $status = 0;
my $reviews = getreviews( $biblionumber1, $status );

$query = '
  SELECT count(*)

  WHERE biblionumber = ?
    AND approved = ?
';
$count = $dbh->selectrow_array( $query, {}, $biblionumber1, $status );
is( $count, 2, 'There are 2 reviews corresponding' );

isa_ok( $reviews, 'ARRAY', '$reviews is defined as an array' );

isa_ok( $reviews->[0], 'HASH', '$reviews->[0] is defined as a hash' );
is( $reviews->[0]->{reviewid},       $review1->{reviewid},       'reviewid field is good' );
is( $reviews->[0]->{borrowernumber}, $review1->{borrowernumber}, 'borrowernumber field is good' );
is( $reviews->[0]->{biblionumber},   $review1->{biblionumber},   'biblionumber field is good' );
is( $reviews->[0]->{review},         $review1->{review},         'review field is good' );
is( $reviews->[0]->{approved},       $review1->{approved},       'approved field is 0 by default' );
cmp_ok( $reviews->[0]->{datereviewed}, 'ge', $date, 'datereviewed field is good' );

isa_ok( $reviews->[1], 'HASH', '$reviews->[1] is defined as a hash' );
is( $reviews->[1]->{reviewid},       $review2->{reviewid},       'reviewid field is good' );
is( $reviews->[1]->{borrowernumber}, $review2->{borrowernumber}, 'borrowernumber field is good' );
is( $reviews->[1]->{biblionumber},   $review2->{biblionumber},   'biblionumber field is good' );
is( $reviews->[1]->{review},         $review2->{review},         'review field is good' );
is( $reviews->[1]->{approved},       $review2->{approved},       'approved field is 0 by default' );
cmp_ok( $reviews->[1]->{datereviewed}, 'ge', $date, 'datereviewed field is good' );
is ($reviews->[1]->{approved},       $review2->{approved},       'approved field is 0 by default');
cmp_ok ($reviews->[1]->{datereviewed}, 'ge', $date, 'datereviewed field is good');

$status = 1;
$reviews = getreviews( $biblionumber1, $status );
isa_ok( $reviews, 'ARRAY', '$reviews is defined as an array' );
is_deeply( $reviews, [], '$reviews is empty, there is no approved review' );


# ---------- Testing getallreviews ------------------------
$status  = 1;
$reviews = getallreviews($status);
isa_ok( $reviews, 'ARRAY', '$reviews is defined as an array' );
is_deeply( $reviews, [], '$reviews is empty, there is no approved review' );

$status  = 0;
$status = 0;
$reviews = getallreviews($status);

$query = '

  FROM reviews
  WHERE approved = ?
';
$count = $dbh->selectrow_array( $query, {}, $status );
is( $count, 3, 'There are 3 reviews corresponding' );
$count = $sth->fetchrow_array;
is ($count, 3, 'There are 3 reviews corresponding');

my $count2 = numberofreviews($status);
is( $count2, $count, 'number of reviews returned is good' );

isa_ok( $reviews, 'ARRAY', '$reviews is defined as an array' );

isa_ok( $reviews->[0], 'HASH', '$reviews->[0] is defined as a hash' );
is( $reviews->[0]->{reviewid},       $review1->{reviewid},       'reviewid field is good' );
is( $reviews->[0]->{borrowernumber}, $review1->{borrowernumber}, 'borrowernumber field is good' );
is( $reviews->[0]->{biblionumber},   $review1->{biblionumber},   'biblionumber field is good' );
is( $reviews->[0]->{review},         $review1->{review},         'review field is good' );
is( $reviews->[0]->{approved},       $review1->{approved},       'approved field is 0 by default' );
cmp_ok( $reviews->[0]->{datereviewed}, 'ge', $date, 'datereviewed field is good' );

isa_ok( $reviews->[1], 'HASH', '$reviews->[1] is defined as a hash' );
is( $reviews->[1]->{reviewid},       $review2->{reviewid},       'reviewid field is good' );
is( $reviews->[1]->{borrowernumber}, $review2->{borrowernumber}, 'borrowernumber field is good' );
is( $reviews->[1]->{biblionumber},   $review2->{biblionumber},   'biblionumber field is good' );
is( $reviews->[1]->{review},         $review2->{review},         'review field is good' );
is( $reviews->[1]->{approved},       $review2->{approved},       'approved field is 0 by default' );
cmp_ok( $reviews->[1]->{datereviewed}, 'ge', $date, 'datereviewed field is good' );

isa_ok( $reviews->[2], 'HASH', '$reviews->[2] is defined as a hash' );
is( $reviews->[2]->{reviewid},       $review3->{reviewid},       'reviewid field is good' );
is( $reviews->[2]->{borrowernumber}, $review3->{borrowernumber}, 'borrowernumber field is good' );
is( $reviews->[2]->{biblionumber},   $review3->{biblionumber},   'biblionumber field is good' );
is( $reviews->[2]->{review},         $review3->{review},         'review field is good' );
is( $reviews->[2]->{approved},       $review3->{approved},       'approved field is 0 by default' );
cmp_ok( $reviews->[2]->{datereviewed}, 'ge', $date, 'datereviewed field is good' );

my $offset    = 1;
my $offset = 1;
my $row_count = 1;
$reviews = getallreviews( $status, $offset );
is( @$reviews, 2, 'There are only 2 Reviews here' );
is_deeply( $reviews->[0], $review2, 'We have Review2...' );
is_deeply( $reviews->[1], $review3, '...and Review3' );

$reviews = getallreviews($status, $offset, $row_count);
is (@$reviews, 1, 'There is only 1 Review here');
is_deeply ($reviews->[0], $review2, 'We have only Review2');

$reviews = getallreviews( $status, $offset, $row_count );
is( @$reviews, 1, 'There is only 1 Review here' );
is_deeply( $reviews->[0], $review2, 'We have only Review2' );

# ---------- Testing numberofreviews ----------------------
$status = 0;
$count  = numberofreviews($status);
is( $count, 3, 'There are 3 reviews where approved = 0' );

$status = 1;
$count  = numberofreviews($status);
is( $count, 0, 'There is no review where approved = 0' );

$count = numberofreviews();
is( $count, 0, 'There is no review where approved = 0 (Default)' );


# ---------- Testing approvereview ------------------------
is( $review1->{approved}, 0, 'review1 is not approved' );
approvereview( $review1->{reviewid} );
$review1 = getreview( $biblionumber1, $b1->borrowernumber );
is( $review1->{approved}, 1, 'review1 is approved' );

is( $review2->{approved}, 0, 'review2 is not approved' );
approvereview( $review2->{reviewid} );
$review2 = getreview( $biblionumber1, $b2->borrowernumber );
is( $review2->{approved}, 1, 'review2 is approved' );

is( $review3->{approved}, 0, 'review3 is not approved' );
approvereview( $review3->{reviewid} );
$review3 = getreview( $biblionumber3, $b2->borrowernumber );
is( $review3->{approved}, 1, 'review3 is approved' );

$status  = 1;
$reviews = getallreviews($status);

$count = numberofreviews($status);
is( $count, 3, '3 reviews are approved' );

$status = 0;
$count  = numberofreviews($status);
is( $count, 0, 'No review are not approved' );


# ---------- Testing unapprovereview ----------------------
is( $review1->{approved}, 1, 'review1 is approved' );
unapprovereview( $review1->{reviewid} );
$review1 = getreview( $biblionumber1, $b1->borrowernumber );
is( $review1->{approved}, 0, 'review1 is not approved' );

is( $review2->{approved}, 1, 'review2 is approved' );
unapprovereview( $review2->{reviewid} );
$review2 = getreview( $biblionumber1, $b2->borrowernumber );
is( $review2->{approved}, 0, 'review2 is not approved' );

is( $review3->{approved}, 1, 'review3 is approved' );
unapprovereview( $review3->{reviewid} );
$review3 = getreview( $biblionumber3, $b2->borrowernumber );
is( $review3->{approved}, 0, 'review3 is not approved' );

$status  = 0;
$reviews = getallreviews($status);

$count = numberofreviews($status);
is( $count, 3, '3 reviews are not approved' );

$status = 1;
$count  = numberofreviews($status);
is( $count, 0, 'No review are approved' );


# ---------- Testing numberofreviewsbybiblionumber --------
approvereview( $review1->{reviewid} );
approvereview( $review2->{reviewid} );
approvereview( $review3->{reviewid} );

$biblionumber = $biblionumber1;
$count        = numberofreviewsbybiblionumber($biblionumber);
is( $count, 2, 'There are 2 reviews for biblionumber1 and approved = 1' );

$biblionumber = $biblionumber2;
$count        = numberofreviewsbybiblionumber($biblionumber);
is( $count, 0, 'There is no review for biblionumber2 and  approved = 1' );

$biblionumber = $biblionumber3;
$count        = numberofreviewsbybiblionumber($biblionumber);
is( $count, 1, 'There 1 review for biblionumber3 and approved = 1' );

unapprovereview( $review1->{reviewid} );
unapprovereview( $review3->{reviewid} );

$biblionumber = $biblionumber1;
$count        = numberofreviewsbybiblionumber($biblionumber);
is( $count, 1, 'There is 1 review for biblionumber1 and approved = 1' );

$biblionumber = $biblionumber2;
$count        = numberofreviewsbybiblionumber($biblionumber);
is( $count, 0, 'There is no review for biblionumber2 and  approved = 1' );

$biblionumber = $biblionumber3;
$count        = numberofreviewsbybiblionumber($biblionumber);
is( $count, 0, 'There is no review for biblionumber3 and approved = 1' );


# ---------- Testing updatereview -------------------------
my $rev1b = 'Review 1 bis';
my $rev2b = 'Review 2 bis';
my $rev3b = 'Review 3 bis';

is( $review1->{review}, $rev1, 'review field is "Review 1"' );
updatereview( $biblionumber1, $b1->borrowernumber, $rev1b );
$review1 = getreview( $biblionumber1, $b1->borrowernumber );
is( $review1->{review}, $rev1b, 'review field is "Review 1 bis"' );

is ($review2->{review}, $rev2, 'review field is "Review 2"');
updatereview($biblionumber1,$b2->borrowernumber,$rev2b);
$review2 = getreview($biblionumber1, $b2->borrowernumber);
is ($review2->{review}, $rev2b, 'review field is "Review 2 bis"');

is( $review2->{review}, $rev2, 'review field is "Review 2"' );
updatereview( $biblionumber1, $b2->borrowernumber, $rev2b );
$review2 = getreview( $biblionumber1, $b2->borrowernumber );
is( $review2->{review}, $rev2b, 'review field is "Review 2 bis"' );

is( $review3->{review}, $rev3, 'review field is "Review 3"' );
updatereview( $biblionumber3, $b2->borrowernumber, $rev3b );
$review3 = getreview( $biblionumber3, $b2->borrowernumber );
is( $review3->{review}, $rev3b, 'review field is "Review 3 bis"' );

# ---------- Testing deletereview -------------------------
my $status0 = 0;
my $status1 = 1;

my $numberOfReviews = numberofreviews($status0) + numberofreviews($status1);
is( $numberOfReviews, 3, 'There are 3 reviews in database' );

deletereview( $review1->{reviewid} );
$review1 = getreview( $biblionumber1, $b3->borrowernumber );
ok( !defined($review1), 'Review1 is no longer defined' );

$numberOfReviews = numberofreviews($status0) + numberofreviews($status1);
is( $numberOfReviews, 2, 'There are 2 reviews left in database' );

deletereview( $review2->{reviewid} );
$review2 = getreview( $biblionumber2, $b2->borrowernumber );
ok( !defined($review2), 'Review2 is no longer defined' );

$numberOfReviews = numberofreviews($status0) + numberofreviews($status1);
is( $numberOfReviews, 1, 'There is 1 review left in database' );

deletereview( $review3->{reviewid} );
$review3 = getreview( $biblionumber3, $b2->borrowernumber );
ok( !defined($review3), 'Review3 is no longer defined' );

$numberOfReviews = numberofreviews($status0) + numberofreviews($status1);
is( $numberOfReviews, 0, 'There is no review left in database' );


$dbh->rollback;
- 

Return to bug 13969

Lines 25-36 use C4::Context; Link Here

(-)a/C4/Review.pm (-32 / +27 lines)
25	use vars qw($VERSION @ISA @EXPORT);	25	use vars qw($VERSION @ISA @EXPORT);
26		26
27	BEGIN {	27	BEGIN {
28	# set the version for version checking	28	# set the version for version checking
29	$VERSION = 3.07.00.049;	29	$VERSION = 3.07.00.049;
30	require Exporter;	30	require Exporter;
31	@ISA = qw(Exporter);	31	@ISA = qw(Exporter);
32	@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber	32	@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
33	getreviews getallreviews approvereview unapprovereview deletereview);	33	getreviews getallreviews approvereview unapprovereview deletereview);
34	}	34	}
35		35
36	=head1 NAME	36	=head1 NAME
Lines 66-74 Takes a borrowernumber and a biblionumber and returns the review of that biblio Link Here
66	sub getreview {	66	sub getreview {
67	my ( $biblionumber, $borrowernumber ) = @_;	67	my ( $biblionumber, $borrowernumber ) = @_;
68	my $dbh = C4::Context->dbh;	68	my $dbh = C4::Context->dbh;
69	my $query =	69	my $query = "SELECT * FROM reviews WHERE biblionumber=? and borrowernumber=?";
70	"SELECT * FROM reviews WHERE biblionumber=? and borrowernumber=?";	70	my $sth = $dbh->prepare($query);
71	my $sth = $dbh->prepare($query);
72	$sth->execute( $biblionumber, $borrowernumber );	71	$sth->execute( $biblionumber, $borrowernumber );
73	return $sth->fetchrow_hashref();	72	return $sth->fetchrow_hashref();
74	}	73	}
Lines 88-94 sub savereview { Link Here
88	review,approved,datereviewed) VALUES	87	review,approved,datereviewed) VALUES
89	(?,?,?,0,now())";	88	(?,?,?,0,now())";
90	my $sth = $dbh->prepare($query);	89	my $sth = $dbh->prepare($query);
91	$sth->execute( $borrowernumber, $biblionumber, $review);	90	$sth->execute( $borrowernumber, $biblionumber, $review );
92	}	91	}
93		92
94	=head2 updatereview	93	=head2 updatereview
Lines 103-109 sub updatereview { Link Here
103	my ( $biblionumber, $borrowernumber, $review ) = @_;	102	my ( $biblionumber, $borrowernumber, $review ) = @_;
104	my $dbh = C4::Context->dbh;	103	my $dbh = C4::Context->dbh;
105	my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?";	104	my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0 WHERE borrowernumber=? and biblionumber=?";
106	my $sth = $dbh->prepare($query);	105	my $sth = $dbh->prepare($query);
107	$sth->execute( $review, $borrowernumber, $biblionumber );	106	$sth->execute( $review, $borrowernumber, $biblionumber );
108	}	107	}
109		108
Lines 118-130 Return the number of reviews where in the 'reviews' database : 'approved' = $sta Link Here
118		117
119	sub numberofreviews {	118	sub numberofreviews {
120	my ($param) = @_;	119	my ($param) = @_;
121	my $status = (defined($param) ? $param : 1);	120	my $status = ( defined($param) ? $param : 1 );
122	my $dbh = C4::Context->dbh;	121	my $dbh = C4::Context->dbh;
123	my $query =	122	my $query = "SELECT count(*) FROM reviews WHERE approved=?";
124	"SELECT count(*) FROM reviews WHERE approved=?";	123	my $sth = $dbh->prepare($query);
125	my $sth = $dbh->prepare($query);	124	$sth->execute($status);
126	$sth->execute( $status );	125	return $sth->fetchrow;
127	return $sth->fetchrow;
128	}	126	}
129		127
130	=head2 numberofreviewsbybiblionumber	128	=head2 numberofreviewsbybiblionumber
Lines 138-148 Return the number of reviews approved for a given biblionumber Link Here
138	sub numberofreviewsbybiblionumber {	136	sub numberofreviewsbybiblionumber {
139	my ($biblionumber) = @_;	137	my ($biblionumber) = @_;
140	my $dbh = C4::Context->dbh;	138	my $dbh = C4::Context->dbh;
141	my $query =	139	my $query = "SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";
142	"SELECT count(*) FROM reviews WHERE biblionumber=? and approved=?";	140	my $sth = $dbh->prepare($query);
143	my $sth = $dbh->prepare($query);
144	$sth->execute( $biblionumber, 1 );	141	$sth->execute( $biblionumber, 1 );
145	return $sth->fetchrow;	142	return $sth->fetchrow;
146	}	143	}
147		144
148	=head2 getreviews	145	=head2 getreviews
Lines 157-167 Return all reviews where in the 'reviews' database : Link Here
157	sub getreviews {	154	sub getreviews {
158	my ( $biblionumber, $approved ) = @_;	155	my ( $biblionumber, $approved ) = @_;
159	my $dbh = C4::Context->dbh;	156	my $dbh = C4::Context->dbh;
160	my $query =	157	my $query = "SELECT * FROM reviews WHERE biblionumber=? and approved=? order by datereviewed desc";
161	"SELECT * FROM reviews WHERE biblionumber=? and approved=? order by datereviewed desc";	158	my $sth = $dbh->prepare($query);
162	my $sth = $dbh->prepare($query);
163	$sth->execute( $biblionumber, $approved );	159	$sth->execute( $biblionumber, $approved );
164	return $sth->fetchall_arrayref({});	160	return $sth->fetchall_arrayref( {} );
165	}	161	}
166		162
167	=head2 getallreviews	163	=head2 getallreviews
Lines 177-190 $offset position and the ($offset + $row_count) position. Link Here
177	=cut	173	=cut
178		174
179	sub getallreviews {	175	sub getallreviews {
180	my ($status, $offset, $row_count) = @_;	176	my ( $status, $offset, $row_count ) = @_;
181	my @params = ($status,($offset ? $offset : 0),($row_count ? $row_count : 20));	177	my @params = ( $status, ( $offset ? $offset : 0 ), ( $row_count ? $row_count : 20 ) );
182	my $dbh = C4::Context->dbh;	178	my $dbh = C4::Context->dbh;
183	my $query =	179	my $query = "SELECT * FROM reviews WHERE approved=? order by datereviewed desc LIMIT ?, ?";
184	"SELECT * FROM reviews WHERE approved=? order by datereviewed desc LIMIT ?, ?";	180	my $sth = $dbh->prepare($query);
185	my $sth = $dbh->prepare($query);
186	$sth->execute(@params);	181	$sth->execute(@params);
187	return $sth->fetchall_arrayref({});	182	return $sth->fetchall_arrayref( {} );
188	}	183	}
189		184
190	=head2 approvereview	185	=head2 approvereview