Admin interface to approve reviews, not finished yet
[wip/koha-chris_n.git] / reviews / reviewswaiting.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use CGI;
5 use C4::Auth;
6 use C4::Output;
7 use C4::Interface::CGI::Output;
8 use C4::Context;
9 use HTML::Template;
10 use C4::Review;
11
12 my $query = new CGI;
13 my ($template, $loggedinuser, $cookie)
14 = get_template_and_user({template_name => "reviews/reviewswaiting.tmpl",
15                                 query => $query,
16                                 type => "intranet",
17                                 authnotrequired => 0,
18                                 flagsrequired => {catalogue => 1},
19                                 debug => 1,
20                                 });
21
22 my $reviews=getallreviews(0);
23 $template->param(reviews => $reviews);
24
25 output_html_with_http_headers $query, $cookie, $template->output;