--- loncom/interface/domainprefs.pm 2007/09/16 17:26:56 1.28
+++ loncom/interface/domainprefs.pm 2007/09/19 17:36:47 1.29
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.28 2007/09/16 17:26:56 raeburn Exp $
+# $Id: domainprefs.pm,v 1.29 2007/09/19 17:36:47 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -157,9 +157,8 @@ sub handler {
&print_header($r,$phase);
if (keys(%domconfig) == 0) {
my $primarylibserv = &Apache::lonnet::domain($dom,'primary');
- my $perlvarref = &LONCAPA::Configuration::read_conf('loncapa.conf');
- my $hostid = $perlvarref->{'lonHostID'};
- if ($hostid ne $primarylibserv) {
+ my @ids=&Apache::lonnet::current_machine_ids();
+ if (!grep(/^\Q$primarylibserv\E$/,@ids)) {
my %designhash = &Apache::loncommon::get_domainconf($dom);
my @loginimages = ('img','logo','domlogo');
my $custom_img_count = 0;
@@ -175,7 +174,14 @@ sub handler {
}
if ($custom_img_count > 0) {
my $switch_server = &check_switchserver($dom,$confname);
- $r->print(&mt('Domain configuration settings have yet to be saved for this domain via the web-based domain preferences interface.').'
'.&mt("While this remains so, you must switch to the domain's primary library server in order to update settings.").'
'.&mt("Thereafter, you will be able to update settings from this screen when logged in to any server in the LON-CAPA network (with a Domain Coordinator role selected in the domain), although you will still need to switch to the domain's primary library server to upload new images or logos.").'
'.$switch_server.' '.&mt('to primary library server for domain: [_1]',$dom));
+ $r->print(
+ &mt('Domain configuration settings have yet to be saved for this domain via the web-based domain preferences interface.').'
'.
+ &mt("While this remains so, you must switch to the domain's primary library server in order to update settings.").'
'.
+ &mt("Thereafter, (with a Domain Coordinator role selected in the domain) you will be able to update settings when logged in to any server in the LON-CAPA network.").'
'.
+ &mt("However, you will still need to switch to the domain's primary library server to upload new images or logos.").'
');
+ if ($switch_server) {
+ $r->print($switch_server.' '.&mt('to primary library server for domain: [_1]',$dom));
+ }
return OK;
}
}