diff options
author | ivan <ivan> | 2009-03-09 00:15:42 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-03-09 00:15:42 +0000 |
commit | 200171841941972b3305cf8be8ef367a1a363e93 (patch) | |
tree | 9c6e36f118db66b33d0efe09db44f7adf8eaf5f8 | |
parent | 91c88338ac970a0e96810621a77161ab90a790f7 (diff) |
mistake, its back
-rw-r--r-- | httemplate/misc/svc_acct-domains.cgi | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/httemplate/misc/svc_acct-domains.cgi b/httemplate/misc/svc_acct-domains.cgi new file mode 100644 index 0000000..5734574 --- /dev/null +++ b/httemplate/misc/svc_acct-domains.cgi @@ -0,0 +1,31 @@ +[ <% join(', ', map { qq("$_->[0]", "$_->[1]") } @svc_domain) %> ] +<%init> + +my $conf = new FS::Conf; + +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 ]; + } +} + +</%init> |