X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fcommunigate_pro.pm;h=a62df83353859e323288fc738a724d641e4f9ea8;hp=fcd6b1ce328e86fb649af103a3909a9774eaf9f8;hb=e17528c356bb137bcff4c6934a2c7e254202838e;hpb=be61853021954c3cf8f6e63a41b1fa693e3af6d8

diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm
index fcd6b1ce3..a62df8335 100644
--- a/FS/FS/part_export/communigate_pro.pm
+++ b/FS/FS/part_export/communigate_pro.pm
@@ -139,6 +139,8 @@ sub _export_insert_svc_domain {
   );
   $settings{'AccountsLimit'} = $svc_domain->max_accounts
     if $svc_domain->max_accounts;
+  $settings{'AdminDomainName'} = $svc_domain->parent_svc_x->domain
+    if $svc_domain->parent_svcnum;
 
   my @options = ( $create, $svc_domain->domain, \%settings );
 
@@ -279,6 +281,9 @@ sub _export_replace_svc_domain {
     if $old->max_accounts ne $new->max_accounts;
   $settings{'DomainAccessModes'} = $new->cgp_accessmodes
     if $old->cgp_accessmodes ne $new->cgp_accessmodes;
+  $settings{'AdminDomainName'} =
+    $new->parent_svcnum ? $new->parent_svc_x->domain : ''
+      if $old->parent_svcnum != $new->parent_svcnum;
 
   if ( keys %settings ) {
     my $error = $self->communigate_pro_queue( $new->svcnum,