--- loncom/interface/domainprefs.pm 2014/01/03 19:53:47 1.160.6.31 +++ loncom/interface/domainprefs.pm 2014/01/06 14:08:31 1.160.6.33 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set domain-wide configuration settings # -# $Id: domainprefs.pm,v 1.160.6.31 2014/01/03 19:53:47 raeburn Exp $ +# $Id: domainprefs.pm,v 1.160.6.33 2014/01/06 14:08:31 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -404,7 +404,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); } @@ -9278,12 +9278,14 @@ sub active_dc_picker { ''.$user; if ($user ne $dcname.':'.$dcdom) { - $table .= ' ('.$dcname.':'.$dcdom.')'. + $table .= ' ('.$dcname.':'.$dcdom.')'; } - $table .= ''; + $table .= ''; } $table .= ''; } elsif ($numdcs == 1) { + my ($dcname,$dcdom) = split(':',$domcoord[0]); + my $user = &Apache::loncommon::plainname($dcname,$dcdom); if ($inputtype eq 'radio') { $table .= ''.$user; if ($user ne $dcname.':'.$dcdom) {