httemplate/edit/cust_main/select-domain.html

   1
   2 <% include('/elements/xmlhttp.html',
   3               'url'  => $p.'misc/svc_acct-domains.cgi',
   4               'subs' => [ $opt{'prefix'}. 'get_domains' ],
   5            )
   6 %>
   7
   8 <SCRIPT TYPE="text/javascript">
   9
  10   function selopt(what,value,text,selected) {
  11     var optionName = new Option(text, value, false, selected);
  12     var length = what.length;
  13     what.options[length] = optionName;
  14   }
  15
  16   function <% $opt{'prefix'} %>pkgpart_svcpart_changed(what,selected) {
  17
  18     pkgpart_svcpart = what.options[what.selectedIndex].value;
  19
  20     function <% $opt{'prefix'} %>update_domains(domains) {
  21
  22       // blank the current domain list
  23       for ( var i = what.form.<% $opt{'prefix'} %>domsvc.length; i >= 0; i-- )
  24           what.form.<% $opt{'prefix'} %>domsvc.options[i] = null;
  25
  26       // add the new domains
  27       var domainArray = eval('(' + domains + ')' );
  28       for ( var s = 0; s < domainArray.length; s=s+2 ) {
  29           var domainLabel = domainArray[s+1];
  30           if ( domainLabel == "" )
  31               domainLabel = '(n/a)';
  32           selopt(what.form.<% $opt{'prefix'} %>domsvc, domainArray[s], domainLabel, (domainArray[s] == selected) ? true : false);
  33       }
  34
  35     }
  36
  37     // go get the new domains
  38     <% $opt{'prefix'} %>get_domains( pkgpart_svcpart, <% $opt{'prefix'} %>update_domains );
  39
  40   }
  41
  42 </SCRIPT>
  43
  44 <SELECT NAME="<% $opt{'prefix'} %>pkgpart_svcpart" onchange="<% $opt{'prefix'} %>pkgpart_svcpart_changed(this,0);" >
  45   <OPTION VALUE="">(none)
  46
  47 % foreach my $part_pkg ( @part_pkg ) {
  48
  49   <OPTION VALUE="<% $part_pkg->pkgpart. "_". $part_pkg->svcpart('svc_acct') %>"<% ( $opt{saved_pkgpart} && $part_pkg->pkgpart == $opt{saved_pkgpart} ) ? ' SELECTED' : '' %>><% $part_pkg->pkg. " - ". $part_pkg->comment %>
  50
  51 % }
  52
  53 </SELECT>
  54 <SCRIPT>
  55   pkgpart_svcpart_changed(document.bottomform.pkgpart_svcpart, <% $opt{saved_domsvc} %>);
  56 </SCRIPT>
  57
  58 <%init>
  59 my %opt = @_;
  60 foreach my $opt (qw( svc_part pkgparts saved_pkgpart saved_domsvc prefix)) {
  61   $opt{$_} = '' unless exists($opt{$_}) && defined($opt{$_});
  62 }
  63 $opt{saved_domsvc} = 0 unless $opt{saved_domsvc};
  64 my @part_pkg = @{$opt{'pkgparts'}};
  65
  66 </%init>
  67