loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.160.6.31, 2014/01/03 19:53:47	version 1.160.6.32, 2014/01/03 20:42:51
Line 9278 sub active_dc_picker {	Line 9278 sub active_dc_picker {
'<input type="'.$inputtype.'" name="'.$name.'"'.	'<input type="'.$inputtype.'" name="'.$name.'"'.
' value="'.$domcoord[$i].'"'.$check.' />'.$user;	' value="'.$domcoord[$i].'"'.$check.' />'.$user;
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) {
	my ($dcname,$dcdom) = split(':',$domcoord[0]);
	my $user = &Apache::loncommon::plainname($dcname,$dcdom);
if ($inputtype eq 'radio') {	if ($inputtype eq 'radio') {
$table .= '<input type="hidden" name="'.$name.'" value="'.$domcoord[0].'" />'.$user;	$table .= '<input type="hidden" name="'.$name.'" value="'.$domcoord[0].'" />'.$user;
if ($user ne $dcname.':'.$dcdom) {	if ($user ne $dcname.':'.$dcdom) {