Lines 384-390
sub set_rule {
Link Here
|
384 |
$rule_value = undef if defined $rule_value && $rule_value eq "" && !$can_be_blank; |
384 |
$rule_value = undef if defined $rule_value && $rule_value eq "" && !$can_be_blank; |
385 |
my $is_monetary = defined $kind_info->{is_monetary} ? $kind_info->{is_monetary} : 0; |
385 |
my $is_monetary = defined $kind_info->{is_monetary} ? $kind_info->{is_monetary} : 0; |
386 |
Koha::Exceptions::CirculationRule::NotDecimal->throw( name => $rule_name, value => $rule_value ) |
386 |
Koha::Exceptions::CirculationRule::NotDecimal->throw( name => $rule_name, value => $rule_value ) |
387 |
if ( $is_monetary && !$can_be_blank && defined($rule_value) && $rule_value !~ /^\d+(\.\d{2})?$/ ); |
387 |
if ( $is_monetary && defined($rule_value) && $rule_value ne '' && $rule_value !~ /^\d+(\.\d{2})?$/ ); |
388 |
|
388 |
|
389 |
for my $v ( $branchcode, $categorycode, $itemtype ) { |
389 |
for my $v ( $branchcode, $categorycode, $itemtype ) { |
390 |
$v = undef if $v and $v eq '*'; |
390 |
$v = undef if $v and $v eq '*'; |
391 |
- |
|
|