From: ivan <ivan>
Date: Mon, 9 Mar 2009 00:15:17 +0000 (+0000)
Subject: doh
X-Git-Tag: root_of_webpay_support~2
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=91c88338ac970a0e96810621a77161ab90a790f7

doh
---

diff --git a/httemplate/misc/svc_acct-domains.cgi b/httemplate/misc/svc_acct-domains.cgi
deleted file mode 100644
index 573457483..000000000
--- a/httemplate/misc/svc_acct-domains.cgi
+++ /dev/null
@@ -1,31 +0,0 @@
-[ <% 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>