diff options
author | jeff <jeff> | 2009-05-29 00:22:48 +0000 |
---|---|---|
committer | jeff <jeff> | 2009-05-29 00:22:48 +0000 |
commit | 7e368366b4b1c3b6a2b1990f34d79a15289cadcc (patch) | |
tree | 3d6eb1319dc4b6084d66c3441d0c39a230f6c97c /httemplate/edit/process/quick-charge.cgi | |
parent | ba4e502ef582e72601a1548d04dd059e20735c71 (diff) |
don't require a leading 0 in the quick charge amount
Diffstat (limited to 'httemplate/edit/process/quick-charge.cgi')
-rw-r--r-- | httemplate/edit/process/quick-charge.cgi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/httemplate/edit/process/quick-charge.cgi b/httemplate/edit/process/quick-charge.cgi index 8fa57ddea..470cd4b5b 100644 --- a/httemplate/edit/process/quick-charge.cgi +++ b/httemplate/edit/process/quick-charge.cgi @@ -27,7 +27,7 @@ $param->{"custnum"} =~ /^(\d+)$/ or $error .= "Illegal customer number " . $param->{"custnum"} . " "; my $custnum = $1; -$param->{"amount"} =~ /^\s*(\d+(\.\d{1,2})?)\s*$/ +$param->{"amount"} =~ /^\s*(\d*(?:\.?\d{1,2}))\s*$/ or $error .= "Illegal amount " . $param->{"amount"} . " "; my $amount = $1; |