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

(-)a/C4/Review.pm (-19 / +1 lines)
Lines 27-34 use vars qw(@ISA @EXPORT); Link Here
27
BEGIN {
27
BEGIN {
28
    require Exporter;
28
    require Exporter;
29
    @ISA    = qw(Exporter);
29
    @ISA    = qw(Exporter);
30
    @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
30
    @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber);
31
      deletereview);
32
}
31
}
33
32
34
=head1 NAME
33
=head1 NAME
Lines 138-160 sub numberofreviewsbybiblionumber { Link Here
138
    return $sth->fetchrow;
137
    return $sth->fetchrow;
139
}
138
}
140
139
141
=head2 deletereview
142
143
  deletereview($reviewid);
144
145
Takes a reviewid and deletes it
146
147
=cut
148
149
sub deletereview {
150
    my ($reviewid) = @_;
151
    my $dbh        = C4::Context->dbh();
152
    my $query      = "DELETE FROM reviews
153
               WHERE reviewid=?";
154
    my $sth = $dbh->prepare($query);
155
    $sth->execute($reviewid);
156
}
157
158
1;
140
1;
159
__END__
141
__END__
160
142
(-)a/reviews/reviewswaiting.pl (-2 / +2 lines)
Lines 54-60 elsif ( $op eq 'unapprove' ) { Link Here
54
    $review->unapprove if $review;
54
    $review->unapprove if $review;
55
}
55
}
56
elsif ( $op eq 'delete' ) {
56
elsif ( $op eq 'delete' ) {
57
    deletereview($reviewid);
57
    my $review = Koha::Reviews->find( $reviewid );
58
    $review->delete if $review;
58
}
59
}
59
60
60
my $reviews = Koha::Reviews->search(
61
my $reviews = Koha::Reviews->search(
61
- 

Return to bug 15839