diff options
| author | Mark Wells <mark@freeside.biz> | 2016-08-03 16:16:28 -0700 |
|---|---|---|
| committer | Jonathan Prykop <jonathan@freeside.biz> | 2016-08-03 19:33:51 -0500 |
| commit | 339613ee8c381087aad25c1e07e083f48764326c (patch) | |
| tree | 76221fa91a4e08069647494ab84da78ee2f72f14 /httemplate/edit/process/cust_main.cgi | |
| parent | d75c483901028621700cad4c1b27e9ebc19d985d (diff) | |
strip degree signs from coord fields before saving CGI param state, workaround for #71518
Diffstat (limited to 'httemplate/edit/process/cust_main.cgi')
| -rwxr-xr-x | httemplate/edit/process/cust_main.cgi | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/httemplate/edit/process/cust_main.cgi b/httemplate/edit/process/cust_main.cgi index 6961d18c0..a9439fa89 100755 --- a/httemplate/edit/process/cust_main.cgi +++ b/httemplate/edit/process/cust_main.cgi @@ -80,6 +80,12 @@ if ( $conf->exists('agent-ship_address', $cgi->param('agentnum')) ) { my %locations; for my $pre (qw(bill ship)) { + foreach (qw( latitude longitude)) { + my $coord = $cgi->param($pre.'_'.$_); + $coord =~ s/\N{DEGREE SIGN}\s*$//; + $cgi->param($pre.'_'.$_, $coord); + } + my %hash; foreach ( FS::cust_main->location_fields ) { $hash{$_} = scalar($cgi->param($pre.'_'.$_)); |