ajax-style xmlhttprequest state/county/country selector!

[freeside.git] / httemplate / edit / cust_main / select-country.html

diff --git a/httemplate/edit/cust_main/select-country.html b/httemplate/edit/cust_main/select-country.html
new file mode 100644 (file)
index 0000000..44f4f0a
--- /dev/null
+++ b/httemplate/edit/cust_main/select-country.html
@@ -0,0 +1,68 @@
+<%
+
+  my %opt = @_;
+  foreach my $opt (qw( county state country prefix onchange disabled )) {
+    $opt{$_} = '' unless exists($opt{$_}) && defined($opt{$_});
+  }
+
+  my $conf = new FS::Conf;
+  my $countrydefault = $conf->config('countrydefault') || 'US';
+
+%>
+
+<%= include('/elements/xmlhttp.html', $p.'misc/states.cgi', $opt{'prefix'}. 'get_states') %>
+
+<SCRIPT TYPE="text/javascript">
+
+  function opt(what,value,text) {
+    var optionName = new Option(text, value, false, false);
+    var length = what.length;
+    what.options[length] = optionName;
+  }
+
+  function <%= $opt{'prefix'} %>country_changed(what, callback) {
+
+    country = what.options[what.selectedIndex].text;
+
+    function <%= $opt{'prefix'} %>update_states(states) {
+
+      // blank the current state list
+      for ( var i = what.form.<%= $opt{'prefix'} %>state.length; i >= 0; i-- )
+          what.form.<%= $opt{'prefix'} %>state.options[i] = null;
+
+      // add the new states
+      var statesArray = eval('(' + states + ')' );
+      for ( var s = 0; s < statesArray.length; s++ ) {
+          var stateLabel = statesArray[s];
+          if ( stateLabel == "" )
+              stateLabel = '(n/a)';
+          opt(what.form.<%= $opt{'prefix'} %>state, statesArray[s], stateLabel);
+      }
+
+      //run the callback
+      if ( callback != null ) 
+        callback();
+    }
+
+    // go get the new states
+    <%= $opt{'prefix'} %>get_states( country, <%= $opt{'prefix'} %>update_states );
+
+  }
+
+</SCRIPT>
+
+<SELECT NAME="<%= $opt{'prefix'} %>country" onChange="<%= $opt{'prefix'} %>country_changed(this); <%= $opt{'onchange'} %>" <%= $opt{'disabled'} %>>
+
+<% foreach my $country (
+     sort { ($b eq $countrydefault) <=> ($a eq $countrydefault) or $a cmp $b }
+     map { $_->country }
+     qsearch( 'cust_main_county',{}, 'DISTINCT ON ( country ) *', )
+   ) {
+%>
+
+  <OPTION VALUE="<%= $country %>"<%= $country eq $opt{'country'} ? ' SELECTED' : '' %>><%= $country %>
+
+<% } %>
+
+</SELECT>
+