projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
English NZ and Polish updates
[koha.git]
/
reports
/
manager.pl
diff --git
a/reports/manager.pl
b/reports/manager.pl
index
6b18952
..
5572f26
100755
(executable)
--- a/
reports/manager.pl
+++ b/
reports/manager.pl
@@
-22,9
+22,8
@@
use CGI;
use C4::Auth;
use C4::Context;
use C4::Output;
use C4::Auth;
use C4::Context;
use C4::Output;
-use C4::Interface::CGI::Output;
-use C4::Circulation::Circ2;
-use HTML::Template;
+use C4::Circulation;
+
my $input = new CGI;
my $report_name=$input->param("report_name");
my $input = new CGI;
my $report_name=$input->param("report_name");
@@
-36,16
+35,18
@@
my ($template, $borrowernumber, $cookie)
query => $input,
type => "intranet",
authnotrequired => 0,
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => {
editcatalogue
=> 1},
+ flagsrequired => {
reports
=> 1},
debug => 1,
});
$template->param(do_it => $do_it,
debug => 1,
});
$template->param(do_it => $do_it,
- report_name => $report_name);
+ report_name => $report_name,
+ );
my $cgidir = C4::Context->config('intranetdir')."/cgi-bin/reports/";
my $cgidir = C4::Context->config('intranetdir')."/cgi-bin/reports/";
-unless (
opendir(DIR, "$cgidir")
) {
+unless (
-r $cgidir and -d $cgidir
) {
$cgidir = C4::Context->intranetdir."/reports/";
}
my $plugin = $cgidir.$report_name.".plugin";
$cgidir = C4::Context->intranetdir."/reports/";
}
my $plugin = $cgidir.$report_name.".plugin";
+warn "PLUGIN:".$plugin;
require $plugin;
if ($do_it) {
my $results = calculate(\@values);
require $plugin;
if ($do_it) {
my $results = calculate(\@values);