path: root/httemplate/elements/tr-select-cust_location.html

<%doc>

Example:

  include('/elements/tr-select-cust_location.html',
            'cgi'       => $cgi,

            'cust_main'     => $cust_main,
            #or
            'prospect_main' => $prospect_main,

            #optional
            'empty_label'   => '(default service address)',
         )

</%doc>

<% include('/elements/xmlhttp.html',
              'url'  => $p.'misc/location.cgi',
              'subs' => [ 'get_location' ],
           )
%>

<SCRIPT TYPE="text/javascript">

  function location_disable(what) {
%   for (@location_fields, 'city_select') { 
      what.form.<%$_%>.disabled = true;
      var ftype = what.form.<%$_%>.tagName;
      if( ftype == 'SELECT') changeSelect(what.form.<%$_%>, '');
      else what.form.<%$_%>.value = '';
      if( ftype != 'SELECT') what.form.<%$_%>.style.backgroundColor = '#dddddd';
%   } 
    if(what.form.enter_censustract) {
      what.form.enter_censustract.disabled = true;
    }
  }

  function location_clear(what) {
%   for (grep { $_ ne 'location_number' } @location_fields, 'city_select') { 
      var ftype = what.form.<%$_%>.tagName;
      if( ftype == 'INPUT' ) what.form.<%$_%>.value = '';
%   }
    if(what.form.enter_censustract) {
      what.form.enter_censustract.value = '';
    }
%   if ( $opt{'alt_format'} ) {
      changeSelect(what.form.location_kind, '');
      changeSelect(what.form.location_type, '');
      what.form.location_number.value = '';
%   }
  }

  function location_enable(what) {
%   for (grep { $_ ne 'location_number' } @location_fields, 'city_select') { 
      what.form.<%$_%>.disabled = false;
      var ftype = what.form.<%$_%>.tagName;
      if( ftype != 'SELECT') what.form.<%$_%>.style.backgroundColor = '#ffffff';
%   } 
    if(what.form.enter_censustract) {
      what.form.enter_censustract.disabled = false;
    }
%   if ( $opt{'alt_format'} ) {
      if ( what.form.location_type &&
           what.form.location_type.options[what.form.location_type.selectedIndex].value ) {
      what.form.location_number.disabled = false;
      what.form.location_number.style.backgroundColor = '#ffffff';
      }
%   }
  }

  function locationnum_changed(what) {
    var locationnum = what.options[what.selectedIndex].value;
    if ( locationnum == -2 ) { //(not required)
      location_disable(what);
      return;
    }
    if ( locationnum == -1 ) { //Add new location
      location_clear(what);

      changeSelect(what.form.country, <% $countrydefault |js_string %>);

      country_changed( what.form.country,
                       fix_state_factory( <% $statedefault |js_string %>,
                                          ''
                                        )
                     );

      location_enable(what);
      return;
    }
    if ( locationnum == -3 ) { //service address location for qualificaitons
      what.form.address1.value = <% $cust_location->address1 |js_string %>;
      what.form.address2.value = <% $cust_location->address2 |js_string %>;
      what.form.city.value = <% $cust_location->city |js_string %>;
      what.form.zip.value = <% $cust_location->zip |js_string %>;
%     if ( $opt{'alt_format'} ) {
        what.form.location_number.value = <% $cust_location->location_number |js_string %>;
        changeSelect(what.form.location_kind, <% $cust_location->location_kind |js_string %> );
        changeSelect(what.form.location_type, <% $cust_location->location_type |js_string %> );
%     }

      changeSelect(what.form.country, <% $cust_location->country | js_string %> );

      country_changed( what.form.country,
                       fix_state_factory( <% $cust_location->state | js_string %>,
                                          <% $cust_location->county | js_string %>
                                        )
                     );
      location_enable(what);
      return;
    }

%# default service address is now just another location
    get_location( locationnum, update_location );

%   if ( $editable ) {
      if ( locationnum == 0 ) {
%   }

%       #sleep/wait until dropdowns are updated?
        location_disable(what);

%   if ( $editable ) {
      } else {

%       #sleep/wait until dropdowns are updated?
        location_enable(what);

      }
%   }

  }

  function fix_state_factory (state, county) {
    function fix_state() {
      var state_el = document.getElementById('state');
      changeSelect(state_el, state);
      state_changed(state_el, fix_county_factory(county) );
    }
    return fix_state;
  }

  function fix_county_factory(county) {
    function fix_county() {
      var county_el = document.getElementById('county');
      if ( county.length > 0 ) {
        changeSelect(county_el, county );
      } else {
        county_el.selectedIndex = 0;
      }
      county_changed(county_el);
    }
    return fix_county;
  }

  function changeSelect(what, value) {
    for ( var i=0; i<what.length; i++) {
      if ( what.options[i].value == value ) {
        what.selectedIndex = i;
      }
    }
  }

  var location_fields = <% encode_json(\@location_fields) %>;
  function update_location( string ) {
    var hash = JSON.parse(string);
    for(var i = 0; i < location_fields.length; i++) {
      var f = location_fields[i];
      if (hash[f] && document.getElementById(f))  {
        document.getElementById(f).value = hash[f];
      }
    }
    country_changed( document.getElementById('country'),
                     fix_state_factory( hash['state'],
                                        hash['county']
                                      )
                   );
  }

</SCRIPT>

<TR>
  <<%$th%> ALIGN="right"><% $opt{'label'} || emt('Service location') %></<%$th%>>
  <TD COLSPAN=7>
    <SELECT NAME     = "locationnum"
            ID       = "locationnum"
            onchange = "locationnum_changed(this);"
    >
% if ( $cust_main ) {
      <OPTION VALUE="<% $cust_main->ship_locationnum %>"><% $opt{'empty_label'} || '(default service address)' |h %>
% }
% if ( $opt{'is_optional'} ) {
    <OPTION VALUE="-2" <% $locationnum == -2 ? 'SELECTED' : ''%>><% $opt{'optional_label'} || '(not required)' |h %>
% }
%
%     foreach my $loc ( @cust_location ) {
%       # don't show the ship_location redundantly
%       next if $cust_main && $cust_main->ship_locationnum == $loc->locationnum;
        <OPTION VALUE="<% $loc->locationnum %>"
                <% $locationnum == $loc->locationnum ? 'SELECTED' : '' %>
        ><% $loc->line |h %>
%     }
%     if ( $addnew ) {
        <OPTION VALUE="-1"
                <% $locationnum == -1 ? 'SELECTED' : '' %>
        >Add new location
%     }
    </SELECT>
  </TD>
</TR>

<% include('/elements/location.html',
             'object'       => $cust_location,
             #'onchange' ?  probably not
             'disabled'     => $disabled,
             'no_asterisks' => 1,
             'no_bold'      => $opt{'no_bold'},
             'alt_format'   => $opt{'alt_format'},
             'enable_coords'=> 1,
             'enable_censustract' => 1,
          )
%>
<SCRIPT TYPE="text/javascript">
  locationnum_changed(document.getElementById('locationnum'));
</SCRIPT>
<%init>

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

my %opt = @_;
my $cgi           = $opt{'cgi'};
my $cust_pkg      = $opt{'cust_pkg'};
my $cust_main     = $opt{'cust_main'};
my $prospect_main = $opt{'prospect_main'};
die "cust_main or prospect_main required" unless $cust_main or $prospect_main;

my $locationnum = '';
if ( $cgi->param('error') ) {
  $cgi->param('locationnum') =~ /^(\-?\d*)$/ or die "illegal locationnum";
  $locationnum = $1;
} else {
  if ( length($opt{'curr_value'}) ) {
    $locationnum = $opt{'curr_value'};
  } elsif ($prospect_main) {
    my @cust_location = $prospect_main->cust_location;
    $locationnum = $cust_location[0]->locationnum if scalar(@cust_location)==1;
  } else { #$cust_main
    $cgi->param('locationnum') =~ /^(\-?\d*)$/ or die "illegal locationnum";
    $locationnum = $1 || $cust_main->ship_locationnum;
  }
}

#probably could use explicit controls
# (cust_main locations not editable for tax reasons)
my $editable = $cust_main ? 0 : 1; #could use explicit control
my $addnew = $cust_main ? 1 : ( $locationnum>0 ? 0 : 1 );

my @location_fields = FS::cust_main->location_fields;
if ( $opt{'alt_format'} ) {
    push @location_fields, qw( location_type location_number location_kind );
}

my $cust_location; #the one that shows by default in the location edit space
if ( $locationnum && $locationnum > 0 ) {
  $cust_location = qsearchs('cust_location', { 'locationnum' => $locationnum } )
    or die "unknown locationnum";
} else {
  $cust_location = new FS::cust_location;
  if ( $locationnum == -1 || $locationnum == -3 ) {
    $cust_location->$_( $cgi->param($_) ) foreach @location_fields;
  } elsif ( $cust_pkg && $cust_pkg->locationnum ) {
    my $pkg_location = $cust_pkg->cust_location;
    $cust_location->$_( $pkg_location->$_ ) foreach @location_fields;
    $opt{'empty_label'} ||= 'package address: '.$pkg_location->line;
  } elsif ( $cust_main ) {
    $cust_location = $cust_main->ship_location; #I think
  }
}

$cust_location->coord_auto('Y');

my $location_sort = sub {
        $a->country   cmp $b->country
  or lc($a->city)     cmp lc($b->city)
  or lc($a->address1) cmp lc($b->address1)
  or lc($a->address2) cmp lc($b->address2)
};

my @cust_location;
push @cust_location, $cust_main->cust_location if $cust_main;
push @cust_location, $prospect_main->cust_location if $prospect_main;
push @cust_location, $cust_location
  if !$cust_main && $cust_location && $cust_location->locationnum > 0
  && ! grep { $_->locationnum == $cust_location->locationnum } @cust_location;

@cust_location = sort $location_sort grep !$_->disabled, @cust_location;

$cust_location = $cust_location[0]
  if ( $prospect_main )
  && !$opt{'is_optional'}
  && @cust_location;

my $disabled =
  ( $locationnum < 0
    || ( $editable && $locationnum )
    || ( $prospect_main
         && !$opt{'is_optional'} && !@cust_location && $addnew
       )
  )
    ? ''
    : 'DISABLED';

if ( $cust_main && $opt{'alt_format'} && ! @cust_location ) {
  $cust_location->locationnum(-3);
  $cust_location->alternize;
  push @cust_location, $cust_location;
}

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

</%init>