--- loncom/interface/domainprefs.pm 2009/10/06 18:10:25 1.110
+++ loncom/interface/domainprefs.pm 2009/10/25 15:53:25 1.117
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.110 2009/10/06 18:10:25 raeburn Exp $
+# $Id: domainprefs.pm,v 1.117 2009/10/25 15:53:25 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -320,7 +320,7 @@ sub handler {
}],
},
);
- my %servers = &Apache::lonnet::get_servers($dom);
+ my %servers = &dom_servers($dom);
if (keys(%servers) > 1) {
$prefs{'login'} = { text => 'Log-in page options',
help => 'Domain_Configuration_Login_Page',
@@ -617,7 +617,7 @@ sub print_login {
my $itemcount = 1;
if ($position eq 'top') {
- my %servers = &Apache::lonnet::get_servers($dom);
+ my %servers = &dom_servers($dom);
my $choice = $choices{'disallowlogin'};
$css_class = ' class="LC_odd_row"';
$datatable .= '
'.$servers{$lonhost}.' | '.
' |