loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.160.6.32, 2014/01/03 20:42:51	version 1.160.6.33, 2014/01/06 14:08:31
Line 404 sub handler {	Line 404 sub handler {
if ($phase eq 'process') {	if ($phase eq 'process') {
my $result = &Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,	my $result = &Apache::lonconfigsettings::make_changes($r,$dom,$phase,$context,\@prefs_order,
\%prefs,\%domconfig,$confname,\@roles);	\%prefs,\%domconfig,$confname,\@roles);
if (ref($result) eq 'HASH') {	if ((ref($result) eq 'HASH') && (keys(%{$result}))) {
$r->rflush();	$r->rflush();
&devalidate_remote_domconfs($dom,$result);	&devalidate_remote_domconfs($dom,$result);
}	}
Line 9280 sub active_dc_picker {	Line 9280 sub active_dc_picker {
if ($user ne $dcname.':'.$dcdom) {	if ($user ne $dcname.':'.$dcdom) {
$table .= ' ('.$dcname.':'.$dcdom.')';	$table .= ' ('.$dcname.':'.$dcdom.')';
}	}
$table .= '</label></span></td>';	$table .= '</label></span></td>';
}	}
$table .= '</tr></table>';	$table .= '</tr></table>';
} elsif ($numdcs == 1) {	} elsif ($numdcs == 1) {