httemplate/misc/svc_acct-domains.cgi

   1 %
   2 %
   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');
   7 %
   8 %  my @output = split /,/, $part_svc_column->columnvalue;
   9 %  my @svc_domain = ();
  10 %  my %seen = ();
  11 %
  12 %  foreach (@output) {
  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 ];
  17 %    $seen{$_}++;
  18 %  }
  19 %  if ($conf->exists('svc_acct-alldomains')
  20 %       && ( $part_svc_column->columnflag eq 'D'
  21 %         || $part_svc_column->columnflag eq '' )
  22 %     ) {
  23 %    foreach (grep { $_->svcnum ne $output[0] } qsearch('svc_domain', {}) ){
  24 %      push @svc_domain, [ $_->svcnum => $_->domain ];
  25 %    }
  26 %  }
  27 %
  28 [ <% join(', ', map { qq("$_->[0]", "$_->[1]") } @svc_domain) %> ]
  29 <%init>
  30 my $conf = new FS::Conf;
  31 </%init>