[freeside-commits] freeside/httemplate/edit/process svc_domain.cgi, 1.7.2.2, 1.7.2.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/edit/process
In directory wavetail.420.am:/tmp/cvs-serv21114/httemplate/edit/process

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	svc_domain.cgi 
Log Message:
communigate: domain account defaults, RT#7083

Index: svc_domain.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/process/svc_domain.cgi,v
retrieving revision 1.7.2.2
retrieving revision 1.7.2.3
diff -u -d -r1.7.2.2 -r1.7.2.3
--- svc_domain.cgi	22 Feb 2010 03:22:15 -0000	1.7.2.2
+++ svc_domain.cgi	22 Feb 2010 09:14:35 -0000	1.7.2.3
@@ -27,6 +27,18 @@
   );
 }
 
+#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($_));