Bug 17600: Standardize our EXPORT_OK

[srvgit] / admin / adveditorshortcuts.pl

diff --git a/admin/adveditorshortcuts.pl b/admin/adveditorshortcuts.pl
index 5910d3f..0fbe51c 100755 (executable)
--- a/admin/adveditorshortcuts.pl
+++ b/admin/adveditorshortcuts.pl
@@ -34,13 +34,11 @@ This script allows the user to redefine the keyboard shortcuts for the advacned
 =cut
 
 use Modern::Perl;
-use Encode;
 
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
 use CGI qw ( -utf8 );
-use C4::Koha;
 use Koha::KeyboardShortcuts;
 
 my $input            = CGI->new;
@@ -51,7 +49,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $input,
         type            => "intranet",
         flagsrequired   => { parameters => 'manage_keyboard_shortcuts' },
-        debug           => 1,
     }
 );