X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fpart_event.html;h=467d69ac3776f03da3f7dfc6c9a44c0b7f70f0be;hb=5f9edcbe9fb3b3eb905614927aa6120d50c06ff1;hp=0293af8863eebc43cc8616c8ace46b501765e91f;hpb=1aecd5bf33146bf3f374341a3814960ae1d419e8;p=freeside.git diff --git a/httemplate/edit/process/part_event.html b/httemplate/edit/process/part_event.html index 0293af886..467d69ac3 100644 --- a/httemplate/edit/process/part_event.html +++ b/httemplate/edit/process/part_event.html @@ -40,6 +40,7 @@ }; } 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); } @@ -75,13 +76,13 @@ } ( $option => $value ); } - @{ $object->option_fields_listref }; + @{ $object->option_fields_listref || [] }; }, 'precheck_callback' => sub { my $cgi = shift; my $action = $cgi->param('action') or return; - my %actionfields = map { $_ =~ /^$action\.(.*)/; $1 => $cgi->param($_) } + my %actionfields = map { $_ =~ /^$action\.(.*)/; $1 => scalar($cgi->param($_)) } grep { /^$action\./ } $cgi->param; if ( exists($actionfields{'reasonnum'}) and length($actionfields{'reasonnum'}) == 0 ) { @@ -99,8 +100,10 @@ next unless $cgi->param($1) eq 'balance_age'; my $errstr = FS::part_event::Condition::balance_age-> - check_options( { age => $cgi->param($param), - age_units => $cgi->param("${param}_units") } ); + check_options( { age => scalar($cgi->param($param)), + age_units => scalar($cgi->param("${param}_units")), + } + ); return $errstr if $errstr; }