loncom/interface/lonselstudent.pm - diff

Return to lonselstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2016/10/22 01:53:27	version 1.17, 2016/10/22 02:03:31
Line 324 SCRIPT	Line 324 SCRIPT
$result .= '<table><tr><td>';	$result .= '<table><tr><td>';

my $size = scalar(keys(%sections));	my $size = scalar(keys(%sections));
$size += 3; # We have allstudents allpersonel nosection too.	if ($context eq 'accesstimes') {
if ($size > 5) {	$size += 2;
	} else {
	$size += 3; # We have allstudents allpersonel nosection too.
	}
	if ($size > 5) {
$size = 5;	$size = 5;
}	}
$result .= '<select multiple="multiple" name="'.$formprefix	$result .= '<select multiple="multiple" name="'.$formprefix
.'.chosensections" size="'.$size.'">'."\n";	.'.chosensections" size="'.$size.'">'."\n";
$result .= '<option value="allstudents">'.&mt('All Students').'</option>';	$result .= '<option value="allstudents">'.&mt('All Students').'</option>';
$result .= '<option value="allpersonnel">'.&mt('All Course Personnel').'</option>';	unless ($context eq 'accesstimes') {
	$result .= '<option value="allpersonnel">'.&mt('All Course Personnel').'</option>';
	}
$result .= '<option value="nosection">'.&mt('No Section').'</option>';	$result .= '<option value="nosection">'.&mt('No Section').'</option>';
$result .= "\n";	$result .= "\n";
foreach my $sec (sort {lc($a) cmp lc($b)} (keys(%sections))) {	foreach my $sec (sort {lc($a) cmp lc($b)} (keys(%sections))) {