X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=reports%2Fmanager.pl;h=177c64ac8a5363d674308425937fda2fcbc5d1d1;hb=9706908b269ebc068b19a0989ca8af6804b1a540;hp=f73a8e01bd4e5b67c640df17b4254d86a08ae553;hpb=0dd40fa3038ba4e9d7713f2abdf477496996a740;p=koha.git

diff --git a/reports/manager.pl b/reports/manager.pl
index f73a8e01bd..177c64ac8a 100755
--- a/reports/manager.pl
+++ b/reports/manager.pl
@@ -13,17 +13,17 @@
 # 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 C4::Circulation;
 
 
 my $input = new CGI;
@@ -36,21 +36,17 @@ my ($template, $borrowernumber, $cookie)
 				query => $input,
 				type => "intranet",
 				authnotrequired => 0,
-				flagsrequired => {reports => 1},
+				flagsrequired => {reports => '*'},
 				debug => 1,
 				});
 $template->param(do_it => $do_it,
 		report_name => $report_name,
-		intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
-		intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-		IntranetNav => C4::Context->preference("IntranetNav"),
 		);
 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";
-warn "PLUGIN:".$plugin;
 require $plugin;
 if ($do_it) {
 	my $results = calculate(\@values);