- my ($status) =@_;
- my $dbh=C4::Context->dbh;
- my $query="SELECT * FROM reviews WHERE approved=? order by datereviewed desc";
- my $sth=$dbh->prepare($query);
- $sth->execute($status);
- my @results;
- while (my $data=$sth->fetchrow_hashref()){
- push @results,$data;
- }
- $sth->finish();
- return(\@results);
-}
+ 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
+
+=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 );
+}
+
+=head2 unapprovereview
+
+ unapprovereview($reviewid);
+
+Takes a reviewid and marks that review as not approved
+
+=cut
+
+sub unapprovereview {
+ my ($reviewid) = @_;
+ my $dbh = C4::Context->dbh();
+ my $query = "UPDATE reviews
+ SET approved=?
+ WHERE reviewid=?";
+ my $sth = $dbh->prepare($query);
+ $sth->execute( 0, $reviewid );
+}
+
+=head2 deletereview
+
+ deletereview($reviewid);
+
+Takes a reviewid and deletes it
+
+=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);
+}
+