From 5fa9ce1b7c8b934e96a6a2f850a4e788eb76f495 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 22 Feb 2010 09:18:10 +0000
Subject: communigate: domain account defaults, RT#7083

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

(limited to 'httemplate/edit/process')

diff --git a/httemplate/edit/process/svc_domain.cgi b/httemplate/edit/process/svc_domain.cgi
index ea97918e8..381339bc8 100755
--- a/httemplate/edit/process/svc_domain.cgi
+++ b/httemplate/edit/process/svc_domain.cgi
@@ -27,6 +27,18 @@ unless ( $cgi->param('cgp_accessmodes') ) {
   );
 }
 
+#unmunge acct_def_cgp_accessmodes (falze laziness-ahoy)
+unless ( $cgi->param('acct_def_cgp_accessmodes') ) {
+  $cgi->param('acct_def_cgp_accessmodes', 
+    join(' ',
+      sort map { /^acct_def_cgp_accessmodes_([\w\/]+)$/ or die "no way"; $1; }
+               grep $cgi->param($_),
+                    grep /^acct_def_cgp_accessmodes_([\w\/]+)$/,
+                         $cgi->param()
+        )
+  );
+}
+
 my $new = new FS::svc_domain ( {
   map {
     $_, scalar($cgi->param($_));
-- 
cgit v1.2.1