blob: d9ba55097b2a2fff5a54d7ea5cd902f345f272e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
<% encode_json($return) %>\
<%init>
local $SIG{__DIE__}; #disable Mason error trap
my $DEBUG = 0;
my $conf = new FS::Conf;
# figure out the prefix
my $pre;
foreach my $name ($cgi->param) {
if ($name =~ /^(\w*)address1$/) {
$pre = $1;
last;
}
}
die "no address1 field in location" if !defined($pre);
# gather relevant fields
my %old = ( map { $_ => scalar($cgi->param($pre . $_)) }
qw( company address1 address2 city state zip country )
);
my $cache = eval { FS::GeocodeCache->standardize(\%old) };
$cache->set_coord;
# don't do set_censustract here, though censustract may be set by now
# give the fields their prefixed names back
# except always name the error string 'error'
my $error = delete($cache->{'error'}) || '';
my %new = (
'changed' => 0,
'error' => $error,
map { $pre.$_, $cache->get($_) } keys %$cache
);
foreach ( qw(address1 address2 city state zip country) ) {
if ( $new{$pre.$_} ne $old{$pre.$_} ) {
$new{changed} = 1;
last;
}
}
# refold this to make it acceptable to jquery
#my $return = [ map { { name => $_, value => $new{$_} } } keys %new ];
my $return = \%new;
warn "result:\n".encode_json($return) if $DEBUG;
$r->content_type('application/json');
</%init>
|
