Bug 19074: Fix category display in Batch patron modification.

[koha.git] / 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 eca339c..12a1c00 100755 (executable)
--- a/tools/automatic_item_modification_by_age.pl
+++ b/tools/automatic_item_modification_by_age.pl
@@ -40,6 +40,9 @@ use C4::Items;
 use C4::Output;
 use C4::Koha;
 
+use Koha::Items;
+use Koha::Biblioitems;
+
 my $cgi = new CGI;
 
 # open template
@@ -58,12 +61,12 @@ my $op = $cgi->param('op') // 'show';
 my $syspref_name = q|automatic_item_modification_by_age_configuration|;
 if ( $op eq 'update' ) {
     my @rules;
-    my @unique_ids = $cgi->param('unique_id');
+    my @unique_ids = $cgi->multi_param('unique_id');
     for my $unique_id ( @unique_ids ) {
-        my @substitution_fields = $cgi->param("substitution_field_$unique_id");
-        my @substitution_values = $cgi->param("substitution_value_$unique_id");
-        my @condition_fields = $cgi->param("condition_field_$unique_id");
-        my @condition_values = $cgi->param("condition_value_$unique_id");
+        my @substitution_fields = $cgi->multi_param("substitution_field_$unique_id");
+        my @substitution_values = $cgi->multi_param("substitution_value_$unique_id");
+        my @condition_fields = $cgi->multi_param("condition_field_$unique_id");
+        my @condition_values = $cgi->multi_param("condition_value_$unique_id");
         my $rule = {
             substitutions => [],
             conditions => [],
@@ -106,8 +109,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,