[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/reviews reviewswaiting.pl
From: |
Chris Cormack |
Subject: |
[Koha-cvs] koha/reviews reviewswaiting.pl |
Date: |
Sat, 17 Jun 2006 22:29:37 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: Chris Cormack <rangi> 06/06/17 22:29:37
Modified files:
reviews : reviewswaiting.pl
Log message:
Can now approve or delete reviews
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/reviews/reviewswaiting.pl?cvsroot=koha&r1=1.1&r2=1.2
Patches:
Index: reviewswaiting.pl
===================================================================
RCS file: /sources/koha/koha/reviews/reviewswaiting.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- reviewswaiting.pl 17 Jun 2006 04:26:38 -0000 1.1
+++ reviewswaiting.pl 17 Jun 2006 22:29:37 -0000 1.2
@@ -10,16 +10,28 @@
use C4::Review;
my $query = new CGI;
-my ($template, $loggedinuser, $cookie)
-= get_template_and_user({template_name => "reviews/reviewswaiting.tmpl",
+my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ {
+ template_name => "reviews/reviewswaiting.tmpl",
query => $query,
type => "intranet",
authnotrequired => 0,
- flagsrequired => {catalogue => 1},
+ flagsrequired => { catalogue => 1 },
debug => 1,
- });
+ }
+);
-my $reviews=getallreviews(0);
-$template->param(reviews => $reviews);
+my $op = $query->param('op');
+my $reviewid = $query->param('reviewid');
+
+if ( $op eq 'approve' ) {
+ approvereview($reviewid);
+}
+elsif ( $op eq 'delete' ) {
+ deletereview($reviewid);
+}
+
+my $reviews = getallreviews(0);
+$template->param( reviews => $reviews );
output_html_with_http_headers $query, $cookie, $template->output;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/reviews reviewswaiting.pl,
Chris Cormack <=