Bug 29408: Add JSDoc documentation for kohaTable function

[koha-ffzg.git] / opac / opac-review.pl

diff --git a/opac/opac-review.pl b/opac/opac-review.pl
index f8e86ba..12152d2 100755 (executable)
--- a/opac/opac-review.pl
+++ b/opac/opac-review.pl
@@ -19,17 +19,16 @@
 
 use Modern::Perl;
 use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
-use C4::Output;
-use C4::Biblio;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
 use C4::Scrubber;
-use C4::Debug;
-use Koha::DateUtils;
+
+use Koha::Biblios;
+use Koha::DateUtils qw( dt_from_string );
 use Koha::Review;
 use Koha::Reviews;
 
-my $query        = new CGI;
+my $query        = CGI->new;
 my $biblionumber = $query->param('biblionumber');
 my $review       = $query->param('review');
 my $reviewid     = $query->param('reviewid');
@@ -45,7 +44,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
 # FIXME: need to allow user to delete their own comment(s)
 
 my ( $clean, @errors, $savedreview );
-my $biblio = GetBiblioData($biblionumber);
+my $biblio = Koha::Biblios->find( $biblionumber );
 
 if( !$biblio ) {
     push @errors, { nobiblio => 1 };
@@ -69,9 +68,6 @@ if( !@errors && defined $review ) {
                        if ($clean ne $review) {
                                push @errors, {scrubbed=>$clean};
                        }
-                       my $js_ok_review = $clean;
-                       $js_ok_review =~ s/"/"/g;  # probably redundant w/ TMPL ESCAPE=JS
-                       $template->param(clean_review=>$js_ok_review);
             if ($savedreview) {
                 $savedreview->set(
                     {
@@ -85,6 +81,7 @@ if( !@errors && defined $review ) {
                     {   biblionumber   => $biblionumber,
                         borrowernumber => $borrowernumber,
                         review         => $clean,
+                        datereviewed   => dt_from_string
                     }
                 )->store->reviewid;
             }
@@ -93,15 +90,13 @@ if( !@errors && defined $review ) {
        }
 }
 (@errors   ) and $template->param(   ERRORS=>\@errors);
-($cgi_debug) and $template->param(cgi_debug=>1       );
 $review = $clean;
 $review ||= $savedreview->review if $savedreview;
 $template->param(
-    'biblionumber'   => $biblionumber,
     'borrowernumber' => $borrowernumber,
     'review'         => $review,
     'reviewid'       => $reviewid || 0,
-    'title'          => $biblio->{'title'},
+    'biblio'         => $biblio,
 );
 
 output_html_with_http_headers $query, $cookie, $template->output;