X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_domain.cgi;h=3fd898ba5cc9c83ff1321ef8367dab7eac62a539;hp=3f2d4736a05ff7dfe58b4249fbdb779ea4e2a6de;hb=e17528c356bb137bcff4c6934a2c7e254202838e;hpb=cc647ae934abe5c9d9a5fc12f020adfc566349d9 diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index 3f2d4736a..3fd898ba5 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -62,7 +62,28 @@ Service #<% $svcnum %> % } -% if ( $svc_domain->max_accounts ) { +% if ( $communigate ) { + + + Administrator domain + +% if ( $svc_domain->parent_svcnum ) { +% #XXX agent-virt aware the link + <% $svc_domain->parent_svc_x->domain %> +% } else { + (none) +% } + + + + + Aliases + <% $svc_domain->cgp_aliases %> + + +% } + +% if ( $communigate && $svc_domain->max_accounts ) { Maximum number of Accounts <% $svc_domain->max_accounts %> @@ -78,6 +99,11 @@ Service #<% $svcnum %> + + Enabled services + <% $svc_domain->cgp_accessmodes %> + +
@@ -122,7 +148,7 @@ DNS records % ) { % ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g; (delete) -% } +% } @@ -169,28 +195,7 @@ DNS records % }
-% 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 ) { - - <% $key |h %> - - <% $defaults->{$key} ? '' : '' %> - <% $settings->{$key} |h %> - <% $defaults->{$key} ? '' : '' %> - - -% } - - -
- -% } +<% include('elements/svc_export_settings.html', $svc_domain) %> <% joblisting({'svcnum'=>$svcnum}, 1) %> @@ -242,19 +247,16 @@ if ($svc_domain->catchall) { 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 );