Lines 381-387
sub set_rule {
Link Here
|
381 |
my $can_be_blank = defined $kind_info->{can_be_blank} ? $kind_info->{can_be_blank} : 1; |
381 |
my $can_be_blank = defined $kind_info->{can_be_blank} ? $kind_info->{can_be_blank} : 1; |
382 |
$rule_value = undef if defined $rule_value && $rule_value eq "" && !$can_be_blank; |
382 |
$rule_value = undef if defined $rule_value && $rule_value eq "" && !$can_be_blank; |
383 |
my $is_monetary = defined $kind_info->{is_monetary} ? $kind_info->{is_monetary} : 0; |
383 |
my $is_monetary = defined $kind_info->{is_monetary} ? $kind_info->{is_monetary} : 0; |
384 |
$rule_value = Koha::Number::Price->new($rule_value)->unformat if defined $rule_value && $is_monetary; |
384 |
Koha::Exceptions::BadParameter->throw("set_rule expected decimal") |
|
|
385 |
if ( $is_monetary && defined($rule_value) && $rule_value !~ /^\d+(\.\d{2})?$/ ); |
385 |
|
386 |
|
386 |
for my $v ( $branchcode, $categorycode, $itemtype ) { |
387 |
for my $v ( $branchcode, $categorycode, $itemtype ) { |
387 |
$v = undef if $v and $v eq '*'; |
388 |
$v = undef if $v and $v eq '*'; |
388 |
- |
|
|