httemplate/misc/svc_acct-domains.cgi

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