3 % my $pkgpart_svcpart = $cgi->param('arg');
4 % $pkgpart_svcpart =~ /^\d+_(\d+)$/;
5 % my $part_svc = qsearchs('part_svc', { 'svcpart' => $1 }) if $1;
6 % my $part_svc_column = $part_svc->part_svc_column('domsvc');
8 % my @output = split /,/, $part_svc_column->columnvalue;
13 % my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $_ })
14 % or warn "unknown svc_domain.svcnum $_ for part_svc_column domsvc; ".
15 % "svcpart = " . $part_svc->svcpart;
16 % push @svc_domain, [ $_ => $svc_domain->domain ];
19 % if ($conf->exists('svc_acct-alldomains')
20 % && ( $part_svc_column->columnflag eq 'D'
21 % || $part_svc_column->columnflag eq '' )
23 % foreach (grep { $_->svcnum ne $output[0] } qsearch('svc_domain', {}) ){
24 % push @svc_domain, [ $_->svcnum => $_->domain ];
28 [ <% join(', ', map { qq("$_->[0]", "$_->[1]") } @svc_domain) %> ]
30 my $conf = new FS::Conf;