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

(-)a/C4/Review.pm (-18 / +1 lines)
Lines 27-33 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(savereview updatereview numberofreviewsbybiblionumber);
30
    @EXPORT = qw(savereview numberofreviewsbybiblionumber);
31
}
31
}
32
32
33
=head1 NAME
33
=head1 NAME
Lines 39-45 C4::Review - Perl Module containing routines for dealing with reviews of items Link Here
39
  use C4::Review;
39
  use C4::Review;
40
40
41
  savereview($biblionumber,$borrowernumber,$review);
41
  savereview($biblionumber,$borrowernumber,$review);
42
  updatereview($biblionumber,$borrowernumber,$review);
43
  my $count=numberofreviewsbybiblionumber($biblionumber);
42
  my $count=numberofreviewsbybiblionumber($biblionumber);
44
43
45
=head1 DESCRIPTION
44
=head1 DESCRIPTION
Lines 66-87 sub savereview { Link Here
66
    $sth->execute( $borrowernumber, $biblionumber, $review );
65
    $sth->execute( $borrowernumber, $biblionumber, $review );
67
}
66
}
68
67
69
=head2 updatereview
70
71
  updateview($biblionumber,$borrowernumber, $review);
72
73
Update the review description in the 'reviews' database
74
75
=cut
76
77
sub updatereview {
78
    my ( $biblionumber, $borrowernumber, $review ) = @_;
79
    my $dbh   = C4::Context->dbh;
80
    my $query = "UPDATE reviews SET review=?,datereviewed=now(),approved=0  WHERE borrowernumber=? and biblionumber=?";
81
    my $sth   = $dbh->prepare($query);
82
    $sth->execute( $review, $borrowernumber, $biblionumber );
83
}
84
85
=head2 numberofreviewsbybiblionumber
68
=head2 numberofreviewsbybiblionumber
86
69
87
  my $count=numberofreviewsbybiblionumber($biblionumber);
70
  my $count=numberofreviewsbybiblionumber($biblionumber);
(-)a/opac/opac-review.pl (-3 / +9 lines)
Lines 26-31 use C4::Review; Link Here
26
use C4::Biblio;
26
use C4::Biblio;
27
use C4::Scrubber;
27
use C4::Scrubber;
28
use C4::Debug;
28
use C4::Debug;
29
use Koha::DateUtils;
29
use Koha::Reviews;
30
use Koha::Reviews;
30
31
31
my $query        = new CGI;
32
my $query        = new CGI;
Lines 60-67 if (defined $review) { Link Here
60
			my $js_ok_review = $clean;
61
			my $js_ok_review = $clean;
61
			$js_ok_review =~ s/"/"/g;	# probably redundant w/ TMPL ESCAPE=JS
62
			$js_ok_review =~ s/"/"/g;	# probably redundant w/ TMPL ESCAPE=JS
62
			$template->param(clean_review=>$js_ok_review);
63
			$template->param(clean_review=>$js_ok_review);
63
			if ($savedreview) {
64
            if ($savedreview) {
64
    			updatereview($biblionumber, $borrowernumber, $clean);
65
                $savedreview->set(
66
                    {
67
                        review        => $clean,
68
                        approved      => 0,
69
                        datereviewed  => dt_from_string
70
                    }
71
                )->store;
65
			} else {
72
			} else {
66
    			savereview($biblionumber, $borrowernumber, $clean);
73
    			savereview($biblionumber, $borrowernumber, $clean);
67
			}
74
			}
68
- 

Return to bug 15839