diff options
| author | ivan <ivan> | 2011-03-06 17:47:53 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-03-06 17:47:53 +0000 |
| commit | 40c8254edff1e92cc5d6fe4abd4e248222f28f28 (patch) | |
| tree | ddb6876ce7276e2751de35c4eb5f391f3e54e6f0 /httemplate | |
| parent | 2266fd6cfc6c9a0e88cf62c0567713dc9db26436 (diff) | |
strip non-digits from phone numbers instead of throwing a nasty error, on dsl qualifications w/ spaces or dashes, RT#7111
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/edit/process/qual.cgi | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/httemplate/edit/process/qual.cgi b/httemplate/edit/process/qual.cgi index 5a4f68be3..bc8c5a5fd 100644 --- a/httemplate/edit/process/qual.cgi +++ b/httemplate/edit/process/qual.cgi @@ -37,7 +37,9 @@ die "neither prospect nor customer specified or found" $cgi->param('exportnum') =~ /^(\d+)$/ or die 'illegal exportnum'; my $exportnum = $1; -$cgi->param('phonenum') =~ /^(\d*)$/ or die 'illegal phonenum'; +my $phonenum = $cgi->param('phonenum'); +$phonenum =~ s/\D//g; +$phonenum =~ /^(\d*)$/ or die 'illegal phonenum'; my $phonenum = $1; $cgi->param('locationnum') =~ /^(\-?\d*)$/ |