Bug 7298: (follow-up) fix uninitialized variable warning

[koha.git] / reports / manager.pl

diff --git a/reports/manager.pl b/reports/manager.pl
index dc8b8b7..177c64a 100755 (executable)
--- a/reports/manager.pl
+++ b/reports/manager.pl
@@ -13,18 +13,18 @@
 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 #
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use CGI;
 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");
@@ -36,12 +36,17 @@ my ($template, $borrowernumber, $cookie)
                                query => $input,
                                type => "intranet",
                                authnotrequired => 0,
-                               flagsrequired => {editcatalogue => 1},
+                               flagsrequired => {reports => '*'},
                                debug => 1,
                                });
 $template->param(do_it => $do_it,
-               report_name => $report_name);
-my $plugin = "./".$report_name.".plugin";
+               report_name => $report_name,
+               );
+my $cgidir = C4::Context->config('intranetdir')."/cgi-bin/reports/";
+unless (-r $cgidir and -d $cgidir) {
+       $cgidir = C4::Context->intranetdir."/reports/";
+} 
+my $plugin = $cgidir.$report_name.".plugin";
 require $plugin;
 if ($do_it) {
        my $results = calculate(\@values);