Bug 17600: Standardize our EXPORT_OK

[srvgit] / tools / inventory.pl

diff --git a/tools/inventory.pl b/tools/inventory.pl
index 2ad5452..5eac6e4 100755 (executable)
--- a/tools/inventory.pl
+++ b/tools/inventory.pl
@@ -26,18 +26,17 @@ my $input = CGI->new;
 my $uploadbarcodes = $input->param('uploadbarcodes');
 my $barcodelist = $input->param('barcodelist');
 
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use C4::Context;
-use C4::Output;
-use C4::Biblio;
-use C4::Items;
-use C4::Koha;
-use C4::Circulation;
-use C4::Reports::Guided;    #_get_column_defs
-use C4::Charset;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Items qw( GetItemsForInventory );
+use C4::Koha qw( GetAuthorisedValues );
+use C4::Circulation qw( AddReturn );
+use C4::Reports::Guided qw( );
+use C4::Charset qw( NormalizeString );
 
 use Koha::Biblios;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
 use Koha::AuthorisedValues;
 use Koha::BiblioFrameworks;
 use Koha::ClassSources;
@@ -371,7 +370,7 @@ $template->param(
 
 # Export to csv
 if (defined $input->param('CSVexport') && $input->param('CSVexport') eq 'on'){
-    eval {use Text::CSV};
+    eval {use Text::CSV ();};
     my $csv = Text::CSV->new or
             die Text::CSV->error_diag ();
     binmode STDOUT, ":encoding(UTF-8)";