Bug 28759: limit accessibility for "Manage API keys"

[koha-ffzg.git] / tools / ajax-inventory.pl

diff --git a/tools/ajax-inventory.pl b/tools/ajax-inventory.pl
index 24739b9..a8c8c9d 100755 (executable)
--- a/tools/ajax-inventory.pl
+++ b/tools/ajax-inventory.pl
@@ -1,29 +1,11 @@
 #!/usr/bin/perl
-#
 
 use Modern::Perl;
+use CGI qw ( -utf8 );
+use C4::Auth qw( check_api_auth );
+use C4::Items qw( ModDateLastSeen );
 
-use CGI;
-use JSON;
-
-use C4::Auth;
-use C4::Circulation qw/CanBookBeRenewed/;
-use C4::Context;
-use C4::Koha qw/getitemtypeimagelocation/;
-use C4::Reserves qw/CheckReserves/;
-use C4::Utils::DataTables;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
-use C4::Dates qw/format_date format_date_in_iso/;
-use C4::Koha;
-use C4::Branch;    # GetBranches
-use C4::Reports::Guided;    #_get_column_defs
-use C4::Charset;
-use List::MoreUtils qw /none/;
-
-
-my $input = new CGI;
+my $input = CGI->new;
 
 # Authentication
 my ($status, $cookie, $sessionId) = C4::Auth::check_api_auth($input, { tools => 'inventory' });
@@ -38,6 +20,4 @@ foreach ( @seent ) {
     /SEEN-(.+)/ and &ModDateLastSeen($1);
 }
 
-
 print $input->header('application/json');
-