<% include('/elements/xmlhttp.html', 'url' => $p.'misc/svc_acct-domains.cgi', 'subs' => [ $opt{'prefix'}. 'get_domains' ], ) %> (none) % foreach my $part_pkg ( @part_pkg ) { svcpart('svc_acct') %>"<% ( $opt{saved_pkgpart} && $part_pkg->pkgpart == $opt{saved_pkgpart} ) ? ' SELECTED' : '' %>><% $part_pkg->pkg. " - ". $part_pkg->comment %> % } <%init> my %opt = @_; foreach my $opt (qw( svc_part pkgparts saved_pkgpart saved_domsvc prefix)) { $opt{$_} = '' unless exists($opt{$_}) && defined($opt{$_}); } $opt{saved_domsvc} = 0 unless $opt{saved_domsvc}; my @part_pkg = @{$opt{'pkgparts'}};