|
Lines 282-288
sub set_rule {
Link Here
|
| 282 |
my $rule_name = $params->{rule_name}; |
282 |
my $rule_name = $params->{rule_name}; |
| 283 |
my $rule_value = $params->{rule_value}; |
283 |
my $rule_value = $params->{rule_value}; |
| 284 |
my $can_be_blank = defined $kind_info->{can_be_blank} ? $kind_info->{can_be_blank} : 1; |
284 |
my $can_be_blank = defined $kind_info->{can_be_blank} ? $kind_info->{can_be_blank} : 1; |
| 285 |
$rule_value = undef if $rule_value && $rule_value eq "" && !$can_be_blank; |
285 |
$rule_value = undef if defined $rule_value && $rule_value eq "" && !$can_be_blank; |
| 286 |
|
286 |
|
| 287 |
for my $v ( $branchcode, $categorycode, $itemtype ) { |
287 |
for my $v ( $branchcode, $categorycode, $itemtype ) { |
| 288 |
$v = undef if $v and $v eq '*'; |
288 |
$v = undef if $v and $v eq '*'; |
| 289 |
- |
|
|