From: rangi <rangi>
Date: Sat, 3 Sep 2005 00:07:55 +0000 (+0000)
Subject: Script to add or edit a review
X-Git-Tag: dev_week~1186
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=d3d359f11ba00e552a5647980561c4f615b7feaa;p=koha.git

Script to add or edit a review
---

diff --git a/opac/opac-review.pl b/opac/opac-review.pl
new file mode 100755
index 0000000000..33cfd43693
--- /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;
+