diff options
Diffstat (limited to 'httemplate/misc')
| -rw-r--r-- | httemplate/misc/svc_acct-domains.cgi | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/httemplate/misc/svc_acct-domains.cgi b/httemplate/misc/svc_acct-domains.cgi new file mode 100644 index 000000000..5e96b8d71 --- /dev/null +++ b/httemplate/misc/svc_acct-domains.cgi @@ -0,0 +1,25 @@ +% +% +% 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'); +% +% my @output = split /,/, $part_svc_column->columnvalue; +% 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 ($part_svc_column->columnflag eq 'D' || $part_svc_column->columnflag eq '') { +% foreach (grep { $_->svcnum ne $output[0] } qsearch('svc_domain', {}) ){ +% push @svc_domain, [ $_->svcnum => $_->domain ]; +% } +% } +% +[ <% join(', ', map { qq("$_->[0]", "$_->[1]") } @svc_domain) %> ] |