loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.89, 2004/11/30 00:21:24	version 1.90, 2004/12/02 21:32:51
Line 1707 sub course_sections {	Line 1707 sub course_sections {
my $output = '';	my $output = '';
my @sections = (sort {$a <=> $b} keys %{$sections_count});	my @sections = (sort {$a <=> $b} keys %{$sections_count});
$output = '<select name="currsec_'.$role.'" ';	$output = '<select name="currsec_'.$role.'" ';
my $multiple = 3;	my $multiple = 4;
if ($num_sections <3) { $multiple = $num_sections; }	if ($num_sections <4) { $multiple = $num_sections; }
$output .= '"multiple size="'.$multiple.'" >'."\n";	$output .= '"multiple size="'.$multiple.'" >'."\n";
foreach (@sections) {	foreach (@sections) {
$output .= '<option value="'.$_.'" />'.$_."\n";	$output .= '<option value="'.$_.'" />'.$_."\n";