RT#41866: Punctuation prevented package from billing [bug fix to previous]

diff --git a/FS/FS/part_pkg/global_Mixin.pm b/FS/FS/part_pkg/global_Mixin.pm
index 0281a51..e82602e 100644 (file)
--- 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;
   }