loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.169, 2012/08/27 06:28:05	version 1.170, 2012/09/07 10:34:28
Line 415 sub handler {	Line 415 sub handler {
if (keys(%servers) > 1) {	if (keys(%servers) > 1) {
my ($othertitle,$usertypes,$types) =	my ($othertitle,$usertypes,$types) =
&Apache::loncommon::sorted_inst_types($dom);	&Apache::loncommon::sorted_inst_types($dom);
$js = &lonbalance_targets_js($dom,$types,\%servers).	$js .= &lonbalance_targets_js($dom,$types,\%servers).
&new_spares_js().	&new_spares_js().
&common_domprefs_js().	&common_domprefs_js().
&Apache::loncommon::javascript_array_indexof();	&Apache::loncommon::javascript_array_indexof();
}	}
&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,$js);	&Apache::lonconfigsettings::display_settings($r,$dom,$phase,$context,\@prefs_order,\%prefs,\%domconfig,$confname,$js);
} else {	} else {
Line 2386 sub radiobutton_prefs {	Line 2386 sub radiobutton_prefs {
return unless ((ref($toggles) eq 'ARRAY') && (ref($defaultchecked) eq 'HASH') &&	return unless ((ref($toggles) eq 'ARRAY') && (ref($defaultchecked) eq 'HASH') &&
(ref($choices) eq 'HASH'));	(ref($choices) eq 'HASH'));

my (%checkedon,%checkedoff,$datatable,$css_class,$cell_colspan);	my (%checkedon,%checkedoff,$datatable,$css_class);

foreach my $item (@{$toggles}) {	foreach my $item (@{$toggles}) {
if ($defaultchecked->{$item} eq 'on') {	if ($defaultchecked->{$item} eq 'on') {