path: root/httemplate/elements/location.html

<%doc>

Example:

  include( '/elements/location.html',
             'object'         => $cust_location
             'prefix'         => $pre, # prefixed to form field names
             'onchange'       => $javascript,
             'geocode'        => $geocode, #passed through
             'censustract'    => $censustract, #passed through
             'no_asterisks'   => 0, #set true to disable the red asterisks next
                                    #to required fields
             'address1_label' => 'Address', #label for address
             'enable_coords'  => 1, #show latitude/longitude fields
             'enable_district' => 1, #show tax district field
             'enable_censustract' => 1, #show censustract field
             
         )

</%doc>

<SCRIPT SRC="<% $fsurl %>elements/jquery.deserialize.min.js"></SCRIPT>
<SCRIPT SRC="<% $fsurl %>elements/polyfill.js"></SCRIPT>

% if ( $opt{'alt_format'} ) {

<TR>
    <<%$th%> ALIGN="right">Location&nbsp;kind</<%$th%>>
    <TD>
    <% include('/elements/select.html',
                 'cgi'        => $cgi,
                 'field'      => 'location_kind',
                 'id'         => 'location_kind',
                 'disabled'   => $disabled,
                 #'style'      => \@style,
                 'options'    => \@location_kind_options,
                 'labels'     => $location_kind_labels,
                 'curr_value' => scalar($cgi->param('location_kind'))
                                   || $object->get('location_kind'),
              )
    %>
    </TD>
  </TR>

% } 

% if ( $label_prefix eq '_location' ) {

    <TR>
      <TH ALIGN="right" ><% $opt{'locationname_label'} || emt('Location ID') %></TD>
      <TD COLSPAN=7>
        <INPUT TYPE     = "text"
               NAME     = "<%$pre%>locationname"
               ID       = "<%$pre%>locationname"
               VALUE    = "<% $object->get('locationname') |h %>"
               SIZE     = 24
               onChange = "<% $onchange %>"
               <% $disabled %>
               <% $style %>
        >
      </TD>
    </TR>

% } else {
    <& hidden.html, field => $pre.'locationname', value => $object->get('locationname') &>

% }

<TR>
  <<%$th%> STYLE="width:16ex" ALIGN="right"><%$r%><% $opt{'address1_label'} || emt('Address') %></<%$th%>>
  <TD COLSPAN=7>
    <INPUT TYPE     = "text"
           NAME     = "<%$pre%>address1"
           ID       = "<%$pre%>address1"
           VALUE    = "<% $object->get('address1') |h %>"
           SIZE     = 54
           onChange = "<% $onchange %>"
           <% $disabled %>
           <% $style %>
    >
  </TD>
</TR>

% if ( ! $opt{'alt_format'} ) { #regular format

<TR>
      <TH ALIGN="right"><FONT ID="<% $pre %>address2_required" color="#ff0000" <% $address2_label_style %>>*</FONT>&nbsp;<FONT ID="<% $pre %>address2_label" <% $address2_label_style %>><B>Unit&nbsp;#</B></FONT></TD>
      <TD COLSPAN=7>
        <INPUT TYPE     = "text"
               NAME     = "<%$pre%>address2"
               ID       = "<%$pre%>address2"
               VALUE    = "<% $object->get('address2') |h %>"
               SIZE     = 54
               onChange = "<% $onchange %>"
               <% $disabled %>
               <% $style %>
        >
      </TD>
</TR>

% } else { # alternate format

<& hidden.html, field => $pre.'address2', value => $object->get('address2') &>

<TR>
    <<%$th%> ALIGN="right">Unit&nbsp;type&nbsp;and&nbsp;#</<%$th%>>
    <TD COLSPAN=7>

%     my $location_type = scalar($cgi->param('location_type'))
%                           || $object->get('location_type');
%     #my $location_number = scalar($cgi->param('location_number'))
%     #                        || $object->get($pre.'location_number');
%
%   if ( $object->get($pre.'address2') && ! $location_type ) {
%   }
%
%     if ( 1 ) { #ikano, switch on via config
%       tie my %location_types, 'Tie::IxHash',
%         FS::part_export::ikano->location_types;
        <% include('/elements/select.html',
                     'cgi'        => $cgi,
                     'field'      => 'location_type',
                     'id'         => 'location_type',
                     'disabled'   => $disabled,
                     #'style'      => \@style,
                     'options'    => [ keys %location_types ],
                     'labels'     => \%location_types,
                     'curr_value' => $location_type,
                     'onchange'   => 'location_type_changed',
                  )
        %>
        <SCRIPT TYPE="text/javascript">
          function location_type_changed (what) {
            if ( what.options[what.selectedIndex].value == '' ) {
              what.form.location_number.disabled = true;
              what.form.location_number.style.backgroundColor = '#dddddd';
            } else {
              what.form.location_number.disabled = false;
              what.form.location_number.style.backgroundColor = '#ffffff';
            }
          }
        </SCRIPT>
%     } else {
        <INPUT TYPE  = "text" 
               NAME  = "location_type" 
               ID    = "location_type"
               VALUE = "<% $location_type |h %>"
               SIZE  = "10"
               <% $disabled %>
               <% $style %>
        >
%     }

    <INPUT TYPE="text" 
               NAME  = "location_number"
               ID    = "location_number"
               VALUE = "<% scalar($cgi->param('location_number')) || $object->get('location_number') |h %>"
               SIZE  = "5"
               <% $disabled || ($location_type ? '' : 'DISABLED') %>
               <% $style %>
        >

%    #XXX i don't work so well when the dropdown is changed :/  i probably need to be triggered by "default service address"
%    $alt_err =~ s/(ship_)?address2/'<B>'.encode_entities($object->get($1.'address2')).'<\/B>'/e;
     <% $alt_err %>

    </TD>

</TR>

% } 


<TR>
  <<%$th%> ALIGN="right">
% unless ($conf->exists('cust_main-no_city_in_address')) {
  <% $r %><% mt('City') |h %>
% }
  </<%$th%>>
  <TD WIDTH="1"><% include('/elements/city.html', %select_hash, 'text_style' => \@style ) %></TD>
  <<%$th%> ALIGN="right" WIDTH="1" ID="<%$pre%>countylabel" <%$county_style%>><%$r%>County</<%$th%>>
  <TD WIDTH="1"><% include('/elements/select-county.html', %select_hash ) %></TD>
  <<%$th%> ALIGN="right" WIDTH="1"><%$r%><% mt('State') |h %></<%$th%>>
  <TD WIDTH="1">
    <% include('/elements/select-state.html', %select_hash ) %>
  </TD>
  <<%$th%> ALIGN="right" WIDTH="1"><%$r%><% mt('Zip') |h %></<%$th%>>
  <TD>
    <INPUT TYPE     = "text"
           NAME     = "<%$pre%>zip"
           ID       = "<%$pre%>zip"
           VALUE    = "<% $object->get('zip') |h %>"
           SIZE     = 11
           onChange = "<% $onchange %>"
           <% $disabled %>
           <% $style %>
    >
  </TD>
</TR>

<TR>
  <<%$th%> ALIGN="right"><%$r%><% mt('Country') |h %></<%$th%>>
  <TD COLSPAN=6><% include('/elements/select-country.html', %select_hash ) %></TD>
</TR>

% if ( $opt{enable_coords} ) {
<TR>
  <TH ALIGN="right"><% mt('Latitude') |h %></TD>
  <TD COLSPAN=7>
    <INPUT TYPE  = "text"
           NAME  = "<%$pre%>latitude"
           ID    = "<%$pre%>latitude"
           VALUE = "<% $object->get('latitude') |h %>"
           <% $disabled %>
           <% $style %>
    >
    <FONT SIZE="-1" COLOR="#666666"><% mt('Longitude') |h %></FONT>
    <INPUT TYPE  = "text"
           NAME  = "<%$pre%>longitude"
           ID    = "<%$pre%>longitude"
           VALUE = "<% $object->get('longitude') |h %>"
           <% $disabled %>
           <% $style %>
    >
  </TD>
</TR>
% } else {
%   foreach (qw(latitude longitude)) {
<& hidden.html, field => $pre.$_, value => $object->get($_) &>
%   }
% }
%
% foreach (qw(coord_auto geocode censustract censusyear)) {
  <& hidden.html, field => $pre.$_, value => $object->get($_) &>
% }
%
% if ( $opt{enable_censustract} ) {
<TR>
  <TH ALIGN="right">Census&nbsp;tract</TD>
  <TD COLSPAN=8>
    <INPUT TYPE="text" SIZE=15
           ID="<% $pre %>enter_censustract" 
           NAME="<% $pre %>enter_censustract" 
           VALUE="<% $object->censustract |h %>">
    <FONT SIZE="-1" COLOR="#333333"><% '(automatic)' %></FONT>
  </TD>
</TR>
% }
% if ( $opt{enable_district} and $conf->config('tax_district_method') ) {
  <TR>
    <TD ALIGN="right">Tax&nbsp;district</TD>
    <TD COLSPAN=8>
      <INPUT TYPE="text" SIZE=15
             NAME="<%$pre%>district" 
             ID="<%$pre%>district"
             VALUE="<% $object->district |h %>">
    <% '(automatic)' %>
    </TD>
  </TR>
% } else {
  <& hidden.html, field => $pre.'district', value => $object->get('district') &>
% }

%# For address standardization:
%# keep a clean copy of the address so we know if we need
%# to re-standardize
% foreach (qw(locationname address1 city state country zip latitude
%             longitude censustract district addr_clean
%             ) ) {
<& hidden.html, field => 'old_'.$pre.$_, value => $object->get($_) &>
% }
%# Placeholders
<& hidden.html, field => $pre.'cachenum', value => '' &>
<& hidden.html, field => $pre.'addr_clean', value => '' &>

<SCRIPT TYPE="text/javascript">
<&| /elements/onload.js &>
  var clear_coords_ids = [
    '<%$pre%>latitude',
    '<%$pre%>longitude',
    '<%$pre%>enter_censustract',
    '<%$pre%>censustract',
    '<%$pre%>district'
  ];
  function clear_coords() {
    for (var i=0; i < clear_coords_ids.length; i++) {
      var el = document.getElementById(clear_coords_ids[i]);
      if ( el ) {
        el.value = '';
      }
    }
  }
  var clear_coords_on_change = [
    '<%$pre%>address1',
    '<%$pre%>address2',
    <% $conf->exists('cust_main-no_city_in_address') ? '' : qq('${pre}city',) %>
    '<%$pre%>state',
    '<%$pre%>zip',
    '<%$pre%>country'
  ];
  for (var i=0; i < clear_coords_on_change.length; i++) {
    var el = document.getElementById(clear_coords_on_change[i]);
    if ( el.addEventListener ) {
      el.addEventListener('change', clear_coords);
    } else if ( el.attachEvent ) {
      el.attachEvent('onchange', clear_coords);
    }
  }
  function clear_censustract() {
    // if the user manually edits the census tract, clear the 'hard' census
    // tract field so that we can re-verify and present a confirmation popup 

    // get the ID of the hidden censustract field
    var censustract_id = this.id.replace('enter_', '');
    var el = document.getElementById(censustract_id);
    if (el) {
      el.value = '';
    }
  }
  var el = document.getElementById('<%$pre%>enter_censustract');
  if (el) {
    if ( el.addEventListener ) {
      el.addEventListener('change', clear_censustract);
    } else if ( el.attachEvent ) {
      el.attachEvent('onchange', clear_censustract);
    }
  }

</&>

function Location(fieldset) {
  if ( typeof fieldset == 'String' ) {
    fieldset = $('#' + fieldset);
  }
  this.fieldset = $(fieldset);
  var errorbox = document.createElement('DIV');
  errorbox.className = 'error';
  fieldset.append(errorbox); // after the <table>
  $(errorbox).position({
    my: 'left',
    at: 'right+20px',
    of: fieldset
  });
  this.errorbox = $(errorbox); // so we can find it

  var img_tick = $('<IMG SRC="http://localhost/freeside/images/tick.png">');
  var img_wait = $('<IMG SRC="http://localhost/freeside/images/wait-orange.gif">');

  // get/set the serialized (URL parameter string) contents of the form fields
  this.value = function(newvalue) {
    if (newvalue) {
      try {
        this.fieldset.deserialize(newvalue);
        this.errorbox.empty();
        if ( newvalue['error'] ) {
          this.errorbox.text(newvalue['error']);
        } else {
          this.errorbox.append(img_tick);
        }
      } catch(err) {
        console.log("Couldn't parse returned data:\n" + newvalue);
        // show an error also
      }
    }
    return this.fieldset.serialize();
  };

  // send a standardization request and do something with the result
  this.standardize = function(callback) {
    this.errorbox.empty();
    this.errorbox.append(img_wait);
    $.ajax({
      type: 'POST',
      url: '<% $fsurl %>misc/address_standardize.cgi',
      success: callback,
      data: this.value()
    });
  };

  // check if required fields are filled, and if so, standardize
  var standardize_if_ready = function() {
    var loc = this;
    var ready = true;
    var required_fields = this.fieldset.find(':data(required)');
    for ( var i = 0; ready && i < required_fields.length; i++ ) {
      if ( required_fields[i].prop('value').length == 0 ) {
        ready = false;
      }
    }

    if ( ready ) {
      // pass the "value" method, prebound to the location object
      this.standardize( this.value.bind(loc) );
    }
  };

  // event handler; the Location object is passed in event.data
  var location_change_timer;
  var location_changed = function( ev ) {
    if ( location_change_timer ) {
      window.clearTimeout(location_change_timer);
    }
    location_change_timer = window.setTimeout(
      standardize_if_ready.bind(ev.data),
      2000
    );
  };

  fieldset.find('input').on('change', this, location_changed);
  fieldset.find('select').on('change', this, location_changed);
}

</SCRIPT>

<%init>

my %opt = @_;

my $pre      = $opt{'prefix'};
my $object   = $opt{'object'};
my $onchange = $opt{'onchange'};
my $disabled = $opt{'disabled'};

my $r = $opt{'no_asterisks'} ? '' : qq!<font color="#ff0000">*</font>&nbsp;!;

my $conf = new FS::Conf;
my $countrydefault = $conf->config('countrydefault') || 'US';
my $statedefault   = $conf->config('statedefault') 
                       || ($countrydefault eq 'US' ? 'CA' : '');
my $label_prefix   = $conf->config('cust_location-label_prefix');

$object ||= FS::cust_location->new({
  'country' => $countrydefault,
  'state'   => $statedefault,
});

my $alt_err = ($opt{'alt_format'} && !$disabled) ? $object->alternize : '';

my @style = ();
push @style, 'background-color: #dddddd' if $disabled;

my @address2_label_style = ();
push @address2_label_style, 'visibility:hidden'
  if $disabled
  || ! $conf->exists('cust_main-require_address2')
  || ( !$pre && !$opt{'same_checked'} );

my @counties = counties( $object->get('state'),
                         $object->get('country'),
                       );
my @county_style = ();
push @county_style, 'display:none' # 'visibility:hidden'
  unless scalar(@counties) > 1;

my $style =
  scalar(@style)
    ? 'STYLE="'. join(';', @style). '"'
    : '';
my $address2_label_style =
  scalar(@address2_label_style)
    ? 'STYLE="'. join(';', @address2_label_style). '"'
    : '';
my $county_style = 
  scalar(@county_style)
    ? 'STYLE="'. join(';', @county_style). '"'
    : '';

my %select_hash = (
  'city'     => $object->get('city'),
  'county'   => $object->get('county'),
  'state'    => $object->get('state'),
  'country'  => $object->get('country'),
  'prefix'   => $pre,
  'onchange' => $onchange,
  'disabled' => $disabled,
  #'style'    => \@style,
);

my $th = $opt{'no_bold'} ? 'TD' : 'TH';

my @location_kind_options = ( '', 'R', 'B' );
my $location_kind_labels = { '' => '', 'R' => 'Residential', 'B' => 'Business' };

</%init>