selectable domain on first package in edit/cust_main

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) %> ]