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

(-)a/C4/Review.pm (-19 / +1 lines)
Lines 29-36 BEGIN { Link Here
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
      deletereview);
34
}
33
}
35
34
36
=head1 NAME
35
=head1 NAME
Lines 140-162 sub numberofreviewsbybiblionumber { Link Here
140
    return $sth->fetchrow;
139
    return $sth->fetchrow;
141
}
140
}
142
141
143
=head2 deletereview
144
145
  deletereview($reviewid);
146
147
Takes a reviewid and deletes it
148
149
=cut
150
151
sub deletereview {
152
    my ($reviewid) = @_;
153
    my $dbh        = C4::Context->dbh();
154
    my $query      = "DELETE FROM reviews
155
               WHERE reviewid=?";
156
    my $sth = $dbh->prepare($query);
157
    $sth->execute($reviewid);
158
}
159
160
1;
142
1;
161
__END__
143
__END__
162
144
(-)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