version 1.143, 2006/12/29 18:41:43
|
version 1.144, 2007/01/16 19:56:41
|
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 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"; |
} |
} |