Script to add or edit a review

diff --git a/opac/opac-review.pl b/opac/opac-review.pl
new file mode 100755 (executable)
index 0000000..33cfd43
--- /dev/null
+++ b/opac/opac-review.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl
+use strict;
+require Exporter;
+use CGI;
+
+use C4::Auth;
+use C4::Koha;
+use HTML::Template;
+use C4::Interface::CGI::Output;
+use C4::Search;
+use C4::Circulation::Circ2;
+use C4::Review;
+
+my $query = new CGI;
+my $biblionumber = $query->param('biblionumber');
+my $type = $query->param('type');
+my $review = $query->param('review');
+my ($template, $borrowernumber, $cookie) 
+    = get_template_and_user({template_name => "opac-review.tmpl",
+                            query => $query,
+                            type => "opac",
+                            authnotrequired => 0,
+                            flagsrequired => {borrow => 1},
+                            debug => 1,
+                            });
+
+# get borrower information ....
+# my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
+# $template->param($borr);
+
+my $biblio=bibdata($biblionumber,'opac');
+
+my $savedreview=getreview($biblionumber,$borrowernumber);
+if ($type eq 'save'){
+   savereview($biblionumber,$borrowernumber,$review);    
+}
+if ($type eq 'update'){
+    updatereview($biblionumber,$borrowernumber,$review);
+}
+if ($savedreview){
+       $type="update";
+    }
+else {
+    $type="save";
+}
+my $reviewdata=$savedreview->{'review'};
+$template->param('biblionumber' => $biblionumber,
+    'borrowernumber' => $borrowernumber,
+    'type'=>$type,
+    'review'=>$reviewdata,
+    'title'=>$biblio->{'title'});
+
+# get the record
+my $order=$query->param('order');
+my $order2=$order;
+if ($order2 eq ''){
+  $order2="date_due desc";
+}
+my $limit=$query->param('limit');
+if ($limit eq 'full'){
+  $limit=0;
+} else {
+  $limit=50;
+}
+
+output_html_with_http_headers $query, $cookie, $template->output;
+