gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Can now approve or delete reviews

This commit is contained in:
rangi 2006-06-17 22:29:37 +00:00
parent 3572a3509f
commit 5fb1dc684b
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
reviews/reviewswaiting.pl
View File

@ -10,16 +10,28 @@ 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 ( $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);
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;