</TR>
% }
-% if ( $svc_domain->max_accounts ) {
+% if ( $communigate ) {
+
+ <TR>
+ <TD ALIGN="right">Administrator domain</TD>
+ <TD BGCOLOR="#ffffff">
+% if ( $svc_domain->parent_svcnum ) {
+% #XXX agent-virt aware the link
+ <A HREF="svc_domain.cgi?<% $svc_domain->parent_svcnum %>"><% $svc_domain->parent_svc_x->domain %></A>
+% } else {
+ <I>(none)</I>
+% }
+ </TD>
+ </TR>
+
+ <TR>
+ <TD ALIGN="right">Aliases</TD>
+ <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_aliases %></TD>
+ </TR>
+
+% }
+
+% if ( $communigate && $svc_domain->max_accounts ) {
<TR>
<TD ALIGN="right">Maximum number of Accounts</TD>
<TD BGCOLOR="#ffffff"><% $svc_domain->max_accounts %></TD>
</TD>
</TR>
+<TR>
+ <TD ALIGN="right">Enabled services</TD>
+ <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_accessmodes %></TD>
+</TR>
+
</TABLE></TD></TR></TABLE>
<BR>
% ) {
% ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g;
(<A HREF="javascript:areyousure('<%$p%>misc/delete-domain_record.cgi?<%$domain_record->recnum%>', 'Delete \'<% $domain_record->reczone %> <% $type %> <% $recdata %>\' ?' )">delete</A>)
-% }
+% }
</td>
</tr>
% }
<BR>
-% my ( $settings, $defaults ) = $svc_domain->export_getsettings;
-% if ( keys %$settings ) {
-
-%# XXX a way to label this "Communigate pro settings".. just a config maybe
- External settings
- <% ntable('#cccccc',2) %>
-
-% foreach my $key ( keys %$settings ) {
- <TR>
- <TD ALIGN="right"><% $key |h %></TD>
- <TD BGCOLOR="<% $defaults->{$key} ? '#eeeeee' : '#ffffff' %>">
- <% $defaults->{$key} ? '<I>' : '<B>' %>
- <% $settings->{$key} |h %>
- <% $defaults->{$key} ? '</I>' : '</B>' %>
- </TD>
- </TR>
-% }
-
- </TABLE>
- <BR>
-
-% }
+<% include('elements/svc_export_settings.html', $svc_domain) %>
<% joblisting({'svcnum'=>$svcnum}, 1) %>
my $domain = $svc_domain->domain;
-my $status = 'Unknown';
-my %ops = ();
-
-my @exports = $part_svc->part_export();
-
-my $registrar;
-my $export;
+my $communigate = scalar($part_svc->part_export('communigate_pro'));
+ # || scalar($part_svc->part_export('communigate_pro_singledomain'));
# Find the first export that does domain registration
-foreach (@exports) {
- $export = $_ if $_->can('registrar');
-}
+my @exports = grep $_->can('registrar'), $part_svc->part_export;
+my $export = $exports[0];
# If we have a domain registration export, get the registrar object
+my $registrar;
+my $status = 'Unknown';
+my %ops = ();
if ($export) {
$registrar = $export->registrar;
my $domstat = $export->get_status( $svc_domain );