|
Lines 67-72
if ( $op eq 'update' ) {
Link Here
|
| 67 |
my @condition_fields = $cgi->multi_param("condition_field_$unique_id"); |
67 |
my @condition_fields = $cgi->multi_param("condition_field_$unique_id"); |
| 68 |
my @condition_values = $cgi->multi_param("condition_value_$unique_id"); |
68 |
my @condition_values = $cgi->multi_param("condition_value_$unique_id"); |
| 69 |
my @age_fields = $cgi->multi_param("agefield_$unique_id"); |
69 |
my @age_fields = $cgi->multi_param("agefield_$unique_id"); |
|
|
70 |
my @age_units = $cgi->multi_param("ageunit_$unique_id"); |
| 70 |
my $rule = { |
71 |
my $rule = { |
| 71 |
substitutions => [], |
72 |
substitutions => [], |
| 72 |
conditions => [], |
73 |
conditions => [], |
|
Lines 90-95
if ( $op eq 'update' ) {
Link Here
|
| 90 |
for my $age_field ( @age_fields ) { |
91 |
for my $age_field ( @age_fields ) { |
| 91 |
$rule->{agefield} = $age_field ? $age_field : "items.dateaccessioned"; |
92 |
$rule->{agefield} = $age_field ? $age_field : "items.dateaccessioned"; |
| 92 |
} |
93 |
} |
|
|
94 |
|
| 95 |
for my $age_unit ( @age_units ) { |
| 96 |
if ($rule->{agefield} ne 'items.damaged_on' |
| 97 |
&& $rule->{agefield} ne 'items.itemlost_on' |
| 98 |
&& $rule->{agefield} ne 'items.withdrawn_on') { |
| 99 |
$rule->{ageunit} = "Days"; |
| 100 |
} else { |
| 101 |
$rule->{ageunit} = $age_unit ? $age_unit : "Days"; |
| 102 |
} |
| 103 |
} |
| 104 |
|
| 93 |
push @rules, $rule; |
105 |
push @rules, $rule; |
| 94 |
} |
106 |
} |
| 95 |
my $syspref_content = to_json( \@rules ); |
107 |
my $syspref_content = to_json( \@rules ); |
|
Lines 116-124
if ( $@ ) {
Link Here
|
| 116 |
my @item_fields = map { "items.$_" } Koha::Items->columns; |
128 |
my @item_fields = map { "items.$_" } Koha::Items->columns; |
| 117 |
my @biblioitem_fields = map { "biblioitems.$_" } Koha::Biblioitems->columns; |
129 |
my @biblioitem_fields = map { "biblioitems.$_" } Koha::Biblioitems->columns; |
| 118 |
my @age_fields = ('items.dateaccessioned', 'items.replacementpricedate', 'items.datelastborrowed', 'items.datelastseen', 'items.damaged_on', 'items.itemlost_on', 'items.withdrawn_on'); |
130 |
my @age_fields = ('items.dateaccessioned', 'items.replacementpricedate', 'items.datelastborrowed', 'items.datelastseen', 'items.damaged_on', 'items.itemlost_on', 'items.withdrawn_on'); |
|
|
131 |
my @age_units = ('Hours', 'Days'); |
| 119 |
$template->param( |
132 |
$template->param( |
| 120 |
op => $op, |
133 |
op => $op, |
| 121 |
messages => \@messages, |
134 |
messages => \@messages, |
|
|
135 |
ageunits => [ @age_units ], |
| 122 |
agefields => [ @age_fields ], |
136 |
agefields => [ @age_fields ], |
| 123 |
condition_fields => [ @item_fields, @biblioitem_fields ], |
137 |
condition_fields => [ @item_fields, @biblioitem_fields ], |
| 124 |
substitution_fields => \@item_fields, |
138 |
substitution_fields => \@item_fields, |
| 125 |
- |
|
|