loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.93, 2009/04/22 14:09:13	version 1.94, 2009/04/24 04:58:27
Line 204 sub handler {	Line 204 sub handler {
&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname);	&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname);
} else {	} else {
if (keys(%domconfig) == 0) {	if (keys(%domconfig) == 0) {
&Apache::lonconfigsettings::print_header($r,$phase,$context);
my $primarylibserv = &Apache::lonnet::domain($dom,'primary');	my $primarylibserv = &Apache::lonnet::domain($dom,'primary');
my @ids=&Apache::lonnet::current_machine_ids();	my @ids=&Apache::lonnet::current_machine_ids();
if (!grep(/^\Q$primarylibserv\E$/,@ids)) {	if (!grep(/^\Q$primarylibserv\E$/,@ids)) {
Line 222 sub handler {	Line 221 sub handler {
}	}
}	}
if ($custom_img_count > 0) {	if ($custom_img_count > 0) {
	&Apache::lonconfigsettings::print_header($r,$phase,$context);
my $switch_server = &check_switchserver($dom,$confname);	my $switch_server = &check_switchserver($dom,$confname);
$r->print(	$r->print(
&mt('Domain configuration settings have yet to be saved for this domain via the web-based domain preferences interface.').'<br />'.	&mt('Domain configuration settings have yet to be saved for this domain via the web-based domain preferences interface.').'<br />'.