--- loncom/interface/domainprefs.pm 2016/09/16 23:42:58 1.280 +++ loncom/interface/domainprefs.pm 2016/09/21 01:38:50 1.281 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.280 2016/09/16 23:42:58 raeburn Exp $ +# $Id: domainprefs.pm,v 1.281 2016/09/21 01:38:50 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4083,14 +4083,28 @@ sub rules_by_location { sub print_ssl { my ($position,$dom,$settings,$rowtotal) = @_; my ($css_class,$datatable); - my $lonhost = ''; my $itemcount = 1; if ($position eq 'top') { - my %domservers = &Apache::lonnet::get_servers($dom); + my $primary_id = &Apache::lonnet::domain($dom,'primary'); + my $intdom = &Apache::lonnet::internet_dom($primary_id); + my $same_institution; + if ($intdom ne '') { + my $internet_names = &Apache::lonnet::get_internet_names($Apache::lonnet::perlvar{'lonHostID'}); + if (ref($internet_names) eq 'ARRAY') { + if (grep(/^\Q$intdom\E$/,@{$internet_names})) { + $same_institution = 1; + } + } + } $css_class = $itemcount%2?' class="LC_odd_row"':''; - $datatable = '