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