X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=acqui%2Fedifactmsgs.pl;h=179b23423ffe52c5bf01ccdae3795117f8e66125;hb=2b8b02a5870e6d5941077106eae8d13c8b29d05a;hp=5aa677072a8832fe1de985e4a2a8f17044c75a99;hpb=85405a2143c4dda5fb5c078a6ee78c5ab6d1b6d8;p=koha-ffzg.git diff --git a/acqui/edifactmsgs.pl b/acqui/edifactmsgs.pl index 5aa677072a..179b23423f 100755 --- a/acqui/edifactmsgs.pl +++ b/acqui/edifactmsgs.pl @@ -20,12 +20,10 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Koha; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Database; -use Koha::EDI qw(process_invoice); -use Koha::Plugins::Handler; +use Koha::EDI qw( process_invoice ); my $q = CGI->new; my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( @@ -34,7 +32,6 @@ my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( query => $q, type => 'intranet', flagsrequired => { acquisition => 'edi_manage' }, - debug => 1, } );