[Koha-cvs] koha C4Review.pm reviews/reviewswaiting.pl koha...

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Chris Cormack <rangi>	06/06/17 04:26:38

Modified files:
	C4             : Review.pm 
Added files:
	reviews        : reviewswaiting.pl 
	koha-tmpl/intranet-tmpl/prog/en/reviews: reviewswaiting.tmpl 

Log message:
	Admin interface to approve reviews, not finished yet
	Needs a script to delete a review and to approve one. Will work on this later (taking a break to watch rugby)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Review.pm?cvsroot=koha&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/koha/reviews/reviewswaiting.pl?cvsroot=koha&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/intranet-tmpl/prog/en/reviews/reviewswaiting.tmpl?cvsroot=koha&rev=1.1

Patches:
Index: C4/Review.pm
===================================================================
RCS file: /sources/koha/koha/C4/Review.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- C4/Review.pm	3 Sep 2005 00:05:40 -0000	1.1
+++ C4/Review.pm	17 Jun 2006 04:26:38 -0000	1.2
@@ -140,6 +140,27 @@
     $sth->finish();
     return(\@results);
 }    
+
+=head2 approvereview
+
+  approvereview($biblionumber,$borrowernumber);
+
+Takes a borrowernumber and a biblionumber and marks that review approved
+
+
+=cut
+
+sub approvereview {
+    my ($biblionumber,$borrowernumber)=@_;
+    my $dbh=C4::Context->dbh();
+    my $query="UPDATE reviews
+               SET approved=?
+               WHERE biblionumber=? AND borrowernumber=?";
+    my $sth=$dbh->prepare($query);
+    $sth->execute(1,$biblionumber,$borrowernumber);
+    $sth->finish();
+}
+
 1;
 __END__
 

Index: reviews/reviewswaiting.pl
===================================================================
RCS file: reviews/reviewswaiting.pl
diff -N reviews/reviewswaiting.pl
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ reviews/reviewswaiting.pl	17 Jun 2006 04:26:38 -0000	1.1
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use HTML::Template;
+use C4::Review;
+
+my $query = new CGI;
+my ($template, $loggedinuser, $cookie)
+= get_template_and_user({template_name => "reviews/reviewswaiting.tmpl",
+				query => $query,
+				type => "intranet",
+				authnotrequired => 0,
+				flagsrequired => {catalogue => 1},
+				debug => 1,
+				});
+
+my $reviews=getallreviews(0);
+$template->param(reviews => $reviews);
+
+output_html_with_http_headers $query, $cookie, $template->output;

Index: koha-tmpl/intranet-tmpl/prog/en/reviews/reviewswaiting.tmpl
===================================================================
RCS file: koha-tmpl/intranet-tmpl/prog/en/reviews/reviewswaiting.tmpl
diff -N koha-tmpl/intranet-tmpl/prog/en/reviews/reviewswaiting.tmpl
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ koha-tmpl/intranet-tmpl/prog/en/reviews/reviewswaiting.tmpl	17 Jun 2006 04:26:38 -0000	1.1
@@ -0,0 +1,23 @@
+<!-- TMPL_INCLUDE NAME="doc-head-open.inc" -->Reviews waiting for Approval --<!-- TMPL_INCLUDE NAME="doc-head-close.inc" -->
+<!-- Additions to enable Calendar system -->
+<link rel="stylesheet" type="text/css" href="<!-- TMPL_VAR name="themelang" -->/includes/calendar/calendar-system.css">
+<!-- End of additions --><!-- Additions to enable Calendar system -->
+<script type="text/javascript" src="<!-- TMPL_VAR name="themelang" -->/includes/calendar/calendar.js"></script>
+<script type="text/javascript" src="<!-- TMPL_VAR name="themelang" -->/includes/calendar/calendar-en.js"></script>
+<script type="text/javascript" src="<!-- TMPL_VAR name="themelang" -->/includes/calendar/calendar-setup.js"></script>
+<!-- End of additions -->
+<!-- ------------------------MAIN BODY OF PAGE------------------------ -->
+
+<h1>Reviews</h1>
+
+<table>
+<!-- TMPL_LOOP NAME="reviews" -->
+<tr>
+<td><!-- TMPL_VAR NAME="review" -->
+</td>
+</tr>
+<!-- /TMPL_LOOP -->
+</table>
+
+<!-- TMPL_INCLUDE NAME="intranet-bottom.inc" -->
+