View | Details | Raw Unified | Return to bug 33028
Collapse All | Expand All

(-)a/Koha/CirculationRules.pm (-2 / +2 lines)
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
- 

Return to bug 33028