diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-04-07 11:17:15 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-04-07 11:17:15 -0700 |
commit | 0cf9aa4a84ac9cf6aa763db4536756c03630ab69 (patch) | |
tree | 880dfe5eb4ec00986c20593f82d5587fda1dc523 /httemplate/search/elements/cust_pay_or_refund.html | |
parent | e34541531eb37fe02b33c614cd9c48b7638347f2 (diff) |
check number searches ignore leading 0s
Diffstat (limited to 'httemplate/search/elements/cust_pay_or_refund.html')
-rwxr-xr-x | httemplate/search/elements/cust_pay_or_refund.html | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/httemplate/search/elements/cust_pay_or_refund.html b/httemplate/search/elements/cust_pay_or_refund.html index 7bebe7f40..699266d0f 100755 --- a/httemplate/search/elements/cust_pay_or_refund.html +++ b/httemplate/search/elements/cust_pay_or_refund.html @@ -402,7 +402,8 @@ if ( $cgi->param('magic') ) { if ( $cgi->param('payinfo') ) { $cgi->param('payinfo') =~ /^\s*(\d+)\s*$/ or die "illegal payinfo ". $cgi->param('payinfo'); - push @search, "$table.payinfo = '$1'"; + my $regexp = regexp_sql(); + push @search, "$table.payinfo $regexp '^0*$1\$'"; } if ( $cgi->param('ccpay') =~ /^([\w-:]+)$/ ) { @@ -538,6 +539,7 @@ if ( $cgi->param('magic') ) { } else { #hmm... is this still used? + warn "undefined search magic"; $cgi->param('payinfo') =~ /^\s*(\d+)\s*$/ or die "illegal payinfo"; my $payinfo = $1; |