[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha C4Review.pm reviews/reviewswaiting.pl koha...
From: |
Chris Cormack |
Subject: |
[Koha-cvs] koha C4Review.pm reviews/reviewswaiting.pl koha... |
Date: |
Sat, 17 Jun 2006 04:26:38 +0000 |
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(address@hidden);
}
+
+=head2 approvereview
+
+ approvereview($biblionumber,$borrowernumber);
+
+Takes a borrowernumber and a biblionumber and marks that review approved
+
+
+=cut
+
+sub approvereview {
+ my ($biblionumber,$borrowernumber)address@hidden;
+ 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" -->
+
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha C4Review.pm reviews/reviewswaiting.pl koha...,
Chris Cormack <=