Bug 11889: (QA follow-up) Fix tests
[koha-ffzg.git] / acqui / modordernotes.pl
index 7801c7f..258fb63 100755 (executable)
@@ -29,19 +29,18 @@ Modify just notes when basket is closed.
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
-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( GetOrder GetBasket ModOrder );
 
 use Koha::Acquisition::Booksellers;
 
-my $input = new CGI;
+my $input = CGI->new;
 my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
     template_name   => 'acqui/modordernotes.tt',
     query           => $input,
     type            => 'intranet',
     flagsrequired   => { 'acquisition' => '*' },
-    debug           => 1,
 } );
 
 my $op = $input->param('op');