projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9c7c254
)
RT#71518: Bug in the address editor [fixed query cleanup]
author
Jonathan Prykop
<jonathan@freeside.biz>
Thu, 4 Aug 2016 00:18:17 +0000
(19:18 -0500)
committer
Jonathan Prykop
<jonathan@freeside.biz>
Thu, 4 Aug 2016 00:18:17 +0000
(19:18 -0500)
httemplate/edit/process/cust_main.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/process/cust_main.cgi
b/httemplate/edit/process/cust_main.cgi
index
715e873
..
74f8f23
100755
(executable)
--- a/
httemplate/edit/process/cust_main.cgi
+++ b/
httemplate/edit/process/cust_main.cgi
@@
-1,5
+1,15
@@
% if ( $error ) {
% $cgi->param('error', $error);
% 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" ) %>
%
% my $query = $m->scomp('/elements/create_uri_query', 'secure'=>1);
<% $cgi->redirect(popurl(2). "cust_main.cgi?$query" ) %>
%
@@
-59,12
+69,6
@@
if ( $conf->exists('agent-ship_address', $cgi->param('agentnum')) ) {
my %locations;
for my $pre (qw(bill ship)) {
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.'_'.$_));
my %hash;
foreach ( FS::cust_main->location_fields ) {
$hash{$_} = scalar($cgi->param($pre.'_'.$_));