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