2 <% include('/elements/xmlhttp.html',
3 'url' => $p.'misc/svc_acct-domains.cgi',
4 'subs' => [ $opt{'prefix'}. 'get_domains' ],
8 <SCRIPT TYPE="text/javascript">
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;
16 function <% $opt{'prefix'} %>pkgpart_svcpart_changed(what,selected) {
18 pkgpart_svcpart = what.options[what.selectedIndex].value;
20 function <% $opt{'prefix'} %>update_domains(domains) {
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;
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);
37 // go get the new domains
38 <% $opt{'prefix'} %>get_domains( pkgpart_svcpart, <% $opt{'prefix'} %>update_domains );
44 <SELECT NAME="<% $opt{'prefix'} %>pkgpart_svcpart" onchange="<% $opt{'prefix'} %>pkgpart_svcpart_changed(this,0);" >
45 <OPTION VALUE="">(none)
47 % foreach my $part_pkg ( @part_pkg ) {
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 %>
55 pkgpart_svcpart_changed(document.bottomform.pkgpart_svcpart, <% $opt{saved_domsvc} %>);
60 foreach my $opt (qw( svc_part pkgparts saved_pkgpart saved_domsvc prefix)) {
61 $opt{$_} = '' unless exists($opt{$_}) && defined($opt{$_});
63 $opt{saved_domsvc} = 0 unless $opt{saved_domsvc};
64 my @part_pkg = @{$opt{'pkgparts'}};