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:45:49 -0500 |
| commit | ef9b6c8513a4af438139f4992b42b9285f64ab1d (patch) | |
| tree | 107b23597ab7facb320922cc63fc80b39ba35c3f | |
| parent | 5422bc1098d49e736caa9c61b3eb941060920d5e (diff) | |
RT#41866: Punctuation prevented package from billing [disallow negative]
| -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 31d178d8c..0281a51f8 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; |