diff options
| author | Jonathan Prykop <jonathan@freeside.biz> | 2016-04-25 16:41:38 -0500 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2016-04-25 16:41:38 -0500 |
| commit | 0a0c17589441e09243a5d1b8a27fad149118271c (patch) | |
| tree | 04c55c439a6dd621f6e943439e36cf3df15d61ea /FS/FS/part_pkg/global_Mixin.pm | |
| parent | 7bdfc3beaa2c62b4df7e17effb791d75d6bcb9e4 (diff) | |
RT#41866: Punctuation prevented package from billing [disallow negative]
Diffstat (limited to 'FS/FS/part_pkg/global_Mixin.pm')
| -rw-r--r-- | FS/FS/part_pkg/global_Mixin.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/part_pkg/global_Mixin.pm b/FS/FS/part_pkg/global_Mixin.pm index 31d178d..0281a51 100644 --- a/FS/FS/part_pkg/global_Mixin.pm +++ b/FS/FS/part_pkg/global_Mixin.pm @@ -19,10 +19,10 @@ sub validate_moneyn { my ($option, $valref) = @_; if ( $$valref eq '' ) { return ''; - } elsif ( $$valref =~ /^\s*(\-)?\s*(\d*)(\.\d{1})\s*$/ ) { + } elsif ( $$valref =~ /^\s*(\d*)(\.\d{1})\s*$/ ) { #handle one decimal place without barfing out $$valref = ( ($1||''). ($2||''). ($3.'0') ) || 0; - } elsif ( $$valref =~ /^\s*(\-)?\s*(\d*)(\.\d{2})?\s*$/ ) { + } elsif ( $$valref =~ /^\s*(\d*)(\.\d{2})?\s*$/ ) { $$valref = ( ($1||''). ($2||''). ($3||'') ) || 0; } else { return "Illegal (money) $option: ". $$valref; |