--- loncom/interface/domainprefs.pm 2013/12/25 20:43:46 1.218
+++ loncom/interface/domainprefs.pm 2014/01/05 21:24:12 1.222
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: domainprefs.pm,v 1.218 2013/12/25 20:43:46 raeburn Exp $
+# $Id: domainprefs.pm,v 1.222 2014/01/05 21:24:12 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -420,7 +420,7 @@ sub handler {
if ($phase eq 'process') {
my $result = &Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,
\%prefs,\%domconfig,$confname,\@roles);
- if (ref($result) eq 'HASH') {
+ if ((ref($result) eq 'HASH') && (keys(%{$result}))) {
$r->rflush();
&devalidate_remote_domconfs($dom,$result);
}
@@ -4546,7 +4546,8 @@ sub print_serverstatuses {
sub serverstatus_pages {
return ('userstatus','lonstatus','loncron','server-status','codeversions',
'checksums','clusterstatus','metadata_keywords','metadata_harvest',
- 'takeoffline','takeonline','showenv','toggledebug','ping','domconf');
+ 'takeoffline','takeonline','showenv','toggledebug','ping','domconf',
+ 'uniquecodes');
}
sub coursecategories_javascript {
@@ -9297,21 +9298,31 @@ sub active_dc_picker {
''.$user;
if ($user ne $dcname.':'.$dcdom) {
- $table .= ' ('.$dcname.':'.$dcdom.')'.
- '';
+ $table .= ' ('.$dcname.':'.$dcdom.')';
}
+ $table .= '';
}
$table .= '';
} elsif ($numdcs == 1) {
+ my ($dcname,$dcdom) = split(':',$domcoord[0]);
+ my $user = &Apache::loncommon::plainname($dcname,$dcdom);
if ($inputtype eq 'radio') {
- $table .= '';
+ $table .= ''.$user;
+ if ($user ne $dcname.':'.$dcdom) {
+ $table .= ' ('.$dcname.':'.$dcdom.')';
+ }
} else {
my $check;
if (exists($currhash{$domcoord[0]})) {
$check = ' checked="checked"';
}
- $table .= '';
+ $table .= '';
$rows ++;
}
}