From 0689d75b6c0c2d30565b64d72b276cad5b195b70 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 22 Feb 2010 03:24:22 +0000
Subject: communigate: domain aliases, enabled services, RT#7083

---
 httemplate/edit/process/svc_domain.cgi | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'httemplate/edit/process/svc_domain.cgi')

diff --git a/httemplate/edit/process/svc_domain.cgi b/httemplate/edit/process/svc_domain.cgi
index d8c1a1298..ea97918e8 100755
--- a/httemplate/edit/process/svc_domain.cgi
+++ b/httemplate/edit/process/svc_domain.cgi
@@ -15,6 +15,18 @@ $FS::svc_domain::whois_hack = 1;
 $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
 my $svcnum = $1;
 
+#unmunge cgp_accessmodes (falze laziness-ish w/part_svc.pm::process & svc_acct)
+unless ( $cgi->param('cgp_accessmodes') ) {
+  $cgi->param('cgp_accessmodes', 
+    join(' ',
+      sort map { /^cgp_accessmodes_([\w\/]+)$/ or die "no way"; $1; }
+               grep $cgi->param($_),
+                    grep /^cgp_accessmodes_([\w\/]+)$/,
+                         $cgi->param()
+        )
+  );
+}
+
 my $new = new FS::svc_domain ( {
   map {
     $_, scalar($cgi->param($_));
-- 
cgit v1.2.1