Bug 30933: Adjust pref description, include ListOwnerDesignated

[srvgit] / acqui / invoice-files.pl

diff --git a/acqui/invoice-files.pl b/acqui/invoice-files.pl
index ce674e4..d4e43cf 100755 (executable)
--- a/acqui/invoice-files.pl
+++ b/acqui/invoice-files.pl
@@ -30,20 +30,18 @@ Manage files associated with invoice
 use Modern::Perl;
 
 use CGI;
-use C4::Auth;
-use C4::Output;
-use C4::Acquisition;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use C4::Acquisition qw( GetInvoice GetInvoiceDetails );
 use Koha::Misc::Files;
 
-my $input = new CGI;
+my $input = CGI->new;
 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
     {
         template_name   => 'acqui/invoice-files.tt',
         query           => $input,
         type            => 'intranet',
-        authnotrequired => 0,
         flagsrequired   => { 'acquisition' => '*' },
-        debug           => 1,
     }
 );