1 function status_message(text, caption) {
2 text = '<P STYLE="position:absolute; top:50%; margin-top:-1em; width:100%; text-align:center"><B><FONT SIZE="+1">' + text + '</FONT></B></P>';
3 caption = caption || 'Please wait...';
4 overlib(text, WIDTH, 444, HEIGHT, 168, CAPTION, caption, STICKY, AUTOSTATUSCAP, CLOSECLICK, MIDX, 0, MIDY, 0);
7 function form_address_info() {
8 var cf = document.<% $formname %>;
10 var returnobj = { billship: <% $billship %> };
12 returnobj['same'] = cf.elements['same'].checked;
14 % for my $pre (@prefixes) {
16 % for my $field (qw(address1 address2 state zip country), ($conf->exists('cust_main-no_city_in_address') ? () : 'city')) {
17 returnobj['<% $pre %><% $field %>'] = cf.elements['<% $pre %><% $field %>'].value;
19 % if ( $withcensus ) {
20 returnobj['<% $pre %>censustract'] = cf.elements['<% $pre %>enter_censustract'].value;
27 function standardize_locations() {
29 var cf = document.<% $formname %>;
30 var address_info = form_address_info();
32 var changed = false; // have any of the address fields been changed?
34 // clear coord_auto fields if the user has changed the coordinates
35 % for my $pre (@prefixes) {
36 % for my $field ($pre.'latitude', $pre.'longitude') {
38 if ( cf.elements['<% $field %>'].value != cf.elements['old_<% $field %>'].value ) {
39 cf.elements['<% $pre %>coord_auto'].value = '';
43 // but if the coordinates have been set to null, turn coord_auto on
45 if ( cf.elements['<% $pre %>latitude'].value == '' &&
46 cf.elements['<% $pre %>longitude'].value == '' ) {
47 cf.elements['<% $pre %>coord_auto'].value = 'Y';
50 // standardize if the old address wasn't clean
51 if ( cf.elements['<% $pre %>addr_clean'].value == '' ) {
56 // or if it was clean but has been changed
57 for (var key in address_info) {
58 var old_el = cf.elements['old_'+key];
59 if ( old_el && address_info[key] != old_el.value ) {
65 % # If address hasn't been changed, auto-confirm the existing value of
66 % # censustract so that we don't ask the user to confirm it again.
68 if ( !changed && <% $withcensus %> ) {
70 if ( address_info['same'] ) {
71 cf.elements['bill_censustract'].value =
72 address_info['bill_censustract'];
74 cf.elements['ship_censustract'].value =
75 address_info['ship_censustract'];
78 cf.elements['censustract'].value =
79 address_info['censustract'];
83 % if ( $conf->config('address_standardize_method') ) {
85 status_message('Verifying address...');
86 address_standardize(JSON.stringify(address_info), confirm_standardize);
89 % foreach my $pre (@prefixes) {
90 cf.elements['<% $pre %>addr_clean'].value = 'Y';
92 post_standardization();
97 post_standardization();
99 % } # if address_standardize_method
104 function confirm_standardize(arg) {
105 // contains 'old', which was what we sent, and 'new', which is what came
106 // back, including any errors
107 returned = JSON.parse(arg);
109 if ( <% $conf->exists('cust_main-auto_standardize_address') || 0 %> ) {
111 replace_address(); // with the contents of returned['new']
113 } else if ( returned['all_same'] ) {
115 // then all entered address fields are correct
116 // but we still need to set the lat/long fields and addr_clean
118 if ( returned['addr_clean'] ) {
119 status_message('Verified');
121 status_message('Unverified');
127 var querystring = encodeURIComponent( JSON.stringify(returned) );
128 // confirmation popup: knows to call replace_address(),
129 // post_standardization(), or submit_abort() depending on the
132 '<%$p%>/misc/confirm-address_standardize.html',
135 overlib( OLresponseAJAX, CAPTION, 'Address standardization', STICKY,
136 AUTOSTATUSCAP, CLOSETEXT, '', MIDX, 0, MIDY, 0, DRAGGABLE, WIDTH,
137 650, HEIGHT, 368, BGCOLOR, '#333399', CGCOLOR, '#333399',
144 function replace_address() {
146 var newaddr = returned['new'];
148 var cf = document.<% $formname %>;
149 var crf = document.forms['confirm_replace_form'];
150 % foreach my $pre (@prefixes) {
151 var clean = newaddr['<% $pre %>addr_clean'] == 'Y';
152 var replace = true; // auto_standardize_address won't load the form, so just do it
153 if ( crf && crf['<% $pre %>replace'] ) {
154 replace = crf['<% $pre %>replace'].value == 'Y';
156 var error = newaddr['<% $pre %>error'];
157 if ( clean && replace ) {
158 % foreach my $field (qw(address1 address2 state zip addr_clean ),($conf->exists('cust_main-no_city_in_address') ? () : 'city')) {
159 cf.elements['<% $pre %><% $field %>'].value = newaddr['<% $pre %><% $field %>'];
162 if ( cf.elements['<% $pre %>coord_auto'].value ) {
163 cf.elements['<% $pre %>latitude'].value = newaddr['<% $pre %>latitude'];
164 cf.elements['<% $pre %>longitude'].value = newaddr['<% $pre %>longitude'];
166 % if ( $withcensus ) {
167 var census_replace = true;
168 if ( crf && crf['census_replace'] ) {
169 census_replace = crf['census_replace'].value == 'Y';
172 if ( clean && census_replace && newaddr['<% $pre %>censustract'] ) {
173 cf.elements['<% $pre %>censustract'].value = newaddr['<% $pre %>censustract'];
179 post_standardization();
183 function confirm_manual_address() {
184 %# not much to do in this case, just confirm the censustract
185 % if ( $withcensus ) {
186 var cf = document.<% $formname %>;
187 % foreach my $pre (@prefixes) {
188 cf.elements['<% $pre %>censustract'].value =
189 cf.elements['<% $pre %>enter_censustract'].value;
192 post_standardization();
195 function post_standardization() {
197 % if ( $need_tax_location ) {
199 var cf = document.<% $formname %>;
201 var prefix = '<% $taxpre %>';
202 // fix edge case with cust_main
203 if ( cf.elements['same']
204 && cf.elements['same'].checked
205 && prefix == 'ship_' ) {
210 if ( new String(cf.elements[prefix + 'zip'].value).length < 10 )
213 var country_el = cf.elements[prefix + 'country'];
214 var country = country_el.options[ country_el.selectedIndex ].value;
215 var geocode = cf.elements[prefix + 'geocode'].value;
217 if ( country == 'CA' || country == 'US' ) {
219 var state_el = cf.elements[prefix + 'state'];
220 var state = state_el.options[ state_el.selectedIndex ].value;
222 var url = "<% $p %>/misc/choose_tax_location.html?" +
223 "city=" + cf.elements[prefix + 'city'].value +
225 ";zip=" + cf.elements[prefix + 'zip'].value +
226 ";country=" + country +
227 ";geocode=" + geocode +
228 ";formname=" + '<% $formname %>' +
232 OLgetAJAX( url, update_geocode, 300 );
236 cf.elements[prefix + 'geocode'].value = 'DEFAULT';
243 cf.elements[prefix + 'geocode'].value = '';
256 function update_geocode() {
259 set_geocode = function (what) {
261 var cf = document.<% $formname %>;
262 var prefix = '<% $taxpre %>';
263 if ( cf.elements['same']
264 && cf.elements['same'].checked
265 && prefix == 'ship_' ) {
269 %# this used to set the city/state/zip to the selected value; I think
271 var argsHash = JSON.parse(what.value);
272 cf.elements[prefix + 'geocode'].value = argsHash['geocode'];
279 overlib( OLresponseAJAX, CAPTION, 'Select tax location', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', MIDX, 0, MIDY, 0, WIDTH, 576, HEIGHT, 268, BGCOLOR, '#333399', CGCOLOR, '#333399', TEXTSIZE, 3 );
283 function setselect(el, value) {
285 for ( var s = 0; s < el.options.length; s++ ) {
286 if ( el.options[s].value == value ) {
287 el.selectedIndex = s;
293 % if ($census_functions) { # do not use this in cust_main
294 function confirm_censustract() {
295 % if ( FS::Conf->new->exists('cust_main-require_censustract') ) {
296 var form = document.<% $formname %>;
297 if ( form.elements['censustract'].value == '' ) {
298 var address_info = form_address_info();
299 address_info['latitude'] = form.elements['latitude'].value;
300 address_info['longitude'] = form.elements['longitude'].value;
302 '<%$p%>/misc/confirm-censustract.html',
303 'q=' + encodeURIComponent(JSON.stringify(address_info)),
305 if ( OLresponseAJAX ) {
306 overlib( OLresponseAJAX, CAPTION, 'Confirm censustract', STICKY,
307 AUTOSTATUSCAP, CLOSETEXT, '', MIDX, 0, MIDY, 0, DRAGGABLE, WIDTH,
308 576, HEIGHT, 268, BGCOLOR, '#333399', CGCOLOR, '#333399',
312 <% $post_censustract %>;
317 <% $post_censustract %>;
319 % } else { # skip this step
320 <% $post_censustract %>;
324 function set_censustract(tract, year) {
325 var form = document.<% $formname %>;
326 form.elements['censustract'].value = tract;
327 form.elements['censusyear'].value = year;
328 <% $post_censustract %>;
331 % } # $census_functions
336 my $conf = new FS::Conf;
338 my $withcensus = $opt{'with_census'} ? 1 : 0;
341 my $billship = $opt{'billship'} ? 1 : 0; # whether to have bill_ and ship_ prefixes
343 # probably should just geocode both addresses, since either one could
344 # be a package address in the future
346 @prefixes = qw(bill_ ship_);
347 $taxpre = $conf->exists('tax-ship_address') ? 'ship_' : 'bill_';
350 my $formname = $opt{form} || 'CustomerForm';
351 my $post_geocode = $opt{callback} || 'post_geocode();';
352 my $post_censustract;
354 my $census_functions = $opt{'with_census_functions'} ? 1 : 0;
355 if ( $census_functions ) {
356 $post_censustract = $post_geocode;
357 $post_geocode = 'confirm_censustract()';
360 my $tax_engine = FS::TaxEngine->new;
361 my $need_tax_location = $tax_engine->info->{manual_tax_location} ? 1 : 0;