From 5ed1e9acf8b7fcaacb5face4ae74cc6e13d5bbe8 Mon Sep 17 00:00:00 2001 From: Jonathan Prykop Date: Wed, 3 Aug 2016 19:18:17 -0500 Subject: [PATCH] RT#71518: Bug in the address editor [fixed query cleanup] --- httemplate/edit/process/cust_main.cgi | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/httemplate/edit/process/cust_main.cgi b/httemplate/edit/process/cust_main.cgi index a9439fa89..4b8993980 100755 --- a/httemplate/edit/process/cust_main.cgi +++ b/httemplate/edit/process/cust_main.cgi @@ -1,5 +1,15 @@ % if ( $error ) { % $cgi->param('error', $error); +% # workaround for create_uri_query's mangling of unicode characters, +% # false laziness with FS::Record::ut_coord +% use charnames ':full'; +% 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 $query = $m->scomp('/elements/create_uri_query', 'secure'=>1); <% $cgi->redirect(popurl(2). "cust_main.cgi?$query" ) %> % @@ -80,12 +90,6 @@ 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.'_'.$_)); -- 2.11.0