};
} elsif ( $info->{'type'} eq 'freq' ) {
$value = '0' if !length($value) and !$info->{'allow_blank'};
+ $value = '0' if $value =~ /[^\d]/;
$value .= $params->{$cgi_field.'_units'} if length($value);
}
}
( $option => $value );
}
- @{ $object->option_fields_listref };
+ @{ $object->option_fields_listref || [] };
},
'precheck_callback' => sub {
$cgi->param('disabled', 'Y');
}
+ if ( $action eq 'pkg_fee' && !$actionfields{feepart} ) {
+ return "Select a Fee Definition to use this Event Action";
+ }
+
my $balance_age_rx = qr/^(condition.+)\.balance_age\.age$/;
foreach my $param ( keys %{ $cgi->Vars() } ){