loncom/interface/lonselstudent.pm - diff

Return to lonselstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2007/11/01 19:56:39	version 1.12, 2008/06/06 19:12:59
Line 111 sub get_people_in_class {	Line 111 sub get_people_in_class {

my $classlist = &Apache::loncoursedata::get_classlist();	my $classlist = &Apache::loncoursedata::get_classlist();
my @keys = keys(%{$classlist});	my @keys = keys(%{$classlist});
# Sort by: Section, name	# Sort by: fullname, username
@keys = sort {	@keys = sort {
lc($classlist->{$a}[$section]) cmp lc($classlist->{$b}[$section]) \|\|
lc($classlist->{$a}[$fullname]) cmp lc($classlist->{$b}[$fullname]) \|\|	lc($classlist->{$a}[$fullname]) cmp lc($classlist->{$b}[$fullname]) \|\|
lc($a) cmp lc($b)	lc($a) cmp lc($b)
} (@keys);	} (@keys);
Line 332 SCRIPT	Line 331 SCRIPT
$result .= '<option name="'.$sec.'">'.$sec.'</option>'."\n";	$result .= '<option name="'.$sec.'">'.$sec.'</option>'."\n";
}	}
$result .= '</td><td valign="top">';	$result .= '</td><td valign="top">';
$result .= '<input type="button" name="'.$formprefix.'.select" value="'.'Select" onclick='	$result .= '<input type="button" name="'.$formprefix.'.select" value="'.&mt('Select').'" onclick='
."'selectSections(\"$formprefix.chosensections\", \"$formprefix\")'".' /></td>';	."'selectSections(\"$formprefix.chosensections\", \"$formprefix\")'".' /></td>';
$result .= '<td valign="top"><input type="button" name="'.$formprefix	$result .= '<td valign="top"><input type="button" name="'.$formprefix
.'.unselect" value="'.&mt('Unselect').'" onclick='.	.'.unselect" value="'.&mt('Unselect').'" onclick='.