return '';
} elsif ( $$valref =~ /^\s*(\d*)(\.\d{1})\s*$/ ) {
#handle one decimal place without barfing out
- $$valref = ( ($1||''). ($2||''). ($3.'0') ) || 0;
+ $$valref = ( ($1||''). ($2.'0') ) || 0;
} elsif ( $$valref =~ /^\s*(\d*)(\.\d{2})?\s*$/ ) {
- $$valref = ( ($1||''). ($2||''). ($3||'') ) || 0;
+ $$valref = ( ($1||''). ($2||'') ) || 0;
} else {
return "Illegal (money) $option: ". $$valref;
}