Bug 32816: Fix cataloguing/value_builder/cn_browser.pl

[srvgit] / tools / overduerules.pl

diff --git a/tools/overduerules.pl b/tools/overduerules.pl
index b7860d8..1e5d920 100755 (executable)
--- a/tools/overduerules.pl
+++ b/tools/overduerules.pl
@@ -20,12 +20,11 @@
 use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Context;
-use C4::Output;
-use C4::Auth;
-use C4::Koha;
+use C4::Output qw( output_html_with_http_headers );
+use C4::Auth qw( get_template_and_user );
 use C4::Letters;
 use C4::Members;
-use C4::Overdues;
+use C4::Overdues qw( GetOverdueMessageTransportTypes );
 use Koha::Libraries;
 
 use Koha::Patron::Categories;
@@ -33,7 +32,7 @@ use Koha::Patron::Categories;
 our $input = CGI->new;
 my $dbh = C4::Context->dbh;
 
-my @patron_categories = Koha::Patron::Categories->search( { overduenoticerequired => { '>' => 0 } } );
+my @patron_categories = Koha::Patron::Categories->search( { overduenoticerequired => { '>' => 0 } } )->as_list;
 my @category_codes  = map { $_->categorycode } @patron_categories;
 our @rule_params     = qw(delay letter debarred);