X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=reports%2Fmanager.pl;h=177c64ac8a5363d674308425937fda2fcbc5d1d1;hb=1ffbd262b3479d46cb9afc91b26fdb4ff9c04a42;hp=22a21df6d833abd539dd4dd2f0c9460dc1a628ac;hpb=cc9524a875d8b032a40fa943de3973d4c93854bf;p=koha_fer diff --git a/reports/manager.pl b/reports/manager.pl index 22a21df6d8..177c64ac8a 100755 --- 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,17 +36,14 @@ 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, - 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";