From e3ceac324435da66323d6e58b46ed86cf2bf0b90 Mon Sep 17 00:00:00 2001 From: Jonathan Prykop Date: Mon, 25 Apr 2016 16:57:30 -0500 Subject: [PATCH] RT#41866: Punctuation prevented package from billing [bug fix to previous] --- FS/FS/part_pkg/global_Mixin.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/FS/FS/part_pkg/global_Mixin.pm b/FS/FS/part_pkg/global_Mixin.pm index 0281a51f8..e82602e1a 100644 --- a/FS/FS/part_pkg/global_Mixin.pm +++ b/FS/FS/part_pkg/global_Mixin.pm @@ -21,9 +21,9 @@ sub validate_moneyn { 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; } -- 2.11.0