Bug 17600: Standardize our EXPORT_OK

[srvgit] / admin / transfer_limits.pl

diff --git a/admin/transfer_limits.pl b/admin/transfer_limits.pl
index 98801ef..dfa7f63 100755 (executable)
--- a/admin/transfer_limits.pl
+++ b/admin/transfer_limits.pl
@@ -20,14 +20,10 @@
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Context;
-use C4::Output;
-use C4::Koha;
-use C4::Circulation
-  qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
 
-my $input = new CGI;
+my $input = CGI->new;
 
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
@@ -35,7 +31,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query         => $input,
         type          => "intranet",
         flagsrequired => { parameters => 'manage_transfers' },
-        debug         => 1,
     }
 );