Bug 29857: Rename base class as Koha::Exception

[srvgit] / tools / automatic_item_modification_by_age.pl

diff --git a/tools/automatic_item_modification_by_age.pl b/tools/automatic_item_modification_by_age.pl
index 82895d2..3693f31 100755 (executable)
--- a/tools/automatic_item_modification_by_age.pl
+++ b/tools/automatic_item_modification_by_age.pl
@@ -32,15 +32,17 @@ This script allows a user to update the new status for items.
 use Modern::Perl;
 
 use CGI;
-use JSON qw( to_json from_json );
+use JSON qw( to_json );
 
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
 use C4::Context;
-use C4::Items;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
 use C4::Koha;
 
-my $cgi = new CGI;
+use Koha::Items;
+use Koha::Biblioitems;
+
+my $cgi = CGI->new;
 
 # open template
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -48,7 +50,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         template_name   => "tools/automatic_item_modification_by_age.tt",
         query           => $cgi,
         type            => "intranet",
-        authnotrequired => 0,
         flagsrequired   => { tools => 'items_batchmod' },
     }
 );
@@ -106,8 +107,8 @@ if ( $@ ) {
     exit;
 }
 
-my @item_fields = map { "items.$_" } C4::Items::columns;
-my @biblioitem_fields = map { "biblioitems.$_" } C4::Items::biblioitems_columns;
+my @item_fields = map { "items.$_" } Koha::Items->columns;
+my @biblioitem_fields = map { "biblioitems.$_" } Koha::Biblioitems->columns;
 $template->param(
     op => $op,
     messages => \@messages,