loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.144, 2007/01/16 19:56:41	version 1.145, 2007/01/16 20:09:49
Line 1838 sub course_sections {	Line 1838 sub course_sections {
$output = '<select name="currsec_'.$role.'" ';	$output = '<select name="currsec_'.$role.'" ';
my $multiple = 4;	my $multiple = 4;
if (scalar(@sections) < 4) { $multiple = scalar(@sections); }	if (scalar(@sections) < 4) { $multiple = scalar(@sections); }
$output .= 'multiple size="'.$multiple.'">'."\n";	$output .= 'multiple="multiple" size="'.$multiple.'">'."\n";
foreach my $sec (@sections) {	foreach my $sec (@sections) {
$output .= '<option value="'.$sec.'">'.$sec."</option>\n";	$output .= '<option value="'.$sec.'">'.$sec."</option>\n";
}	}