[freeside-commits] freeside/httemplate/edit/process quick-charge.cgi, 1.16, 1.17

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/httemplate/edit/process
In directory wavetail.420.am:/tmp/cvs-serv3817/process

Modified Files:
	quick-charge.cgi 
Log Message:
don't require a leading 0 in the quick charge amount

Index: quick-charge.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/process/quick-charge.cgi,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- quick-charge.cgi	17 Feb 2009 02:02:00 -0000	1.16
+++ quick-charge.cgi	29 May 2009 00:22:48 -0000	1.17
@@ -27,7 +27,7 @@
   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;