loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.124, 2005/04/07 07:34:52	version 1.126, 2005/12/13 16:25:32
Line 197 sub PrepareClasslist {	Line 197 sub PrepareClasslist {
my $cid = $env{'request.course.id'};	my $cid = $env{'request.course.id'};
my $cdom = $env{'course.'.$cid.'.domain'};	my $cdom = $env{'course.'.$cid.'.domain'};
my $cnum = $env{'course.'.$cid.'.num'};	my $cnum = $env{'course.'.$cid.'.num'};
my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cid,	my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cdom,
$cdom,$cnum);	$cnum);
my @selected_sections = &get_selected_sections();	my @selected_sections = &get_selected_sections();
#	#
# Deal with instructors with restricted section access	# Deal with instructors with restricted section access
Line 268 sub PrepareClasslist {	Line 268 sub PrepareClasslist {
my $sortby = 'fullname';	my $sortby = 'fullname';
$sortby = $env{'form.sort'} if (exists($env{'form.sort'}));	$sortby = $env{'form.sort'} if (exists($env{'form.sort'}));
my @TmpStudents = sort { $a->{$sortby} cmp $b->{$sortby} \|\|	my @TmpStudents = sort { $a->{$sortby} cmp $b->{$sortby} \|\|
$a->{'fullname'} cmp $b->{'fullname'} } @Students;	lc($a->{'fullname'}) cmp lc($b->{'fullname'}) \|\|
	lc($a->{'username'}) cmp lc($b->{'username'}) } @Students;
@Students = @TmpStudents;	@Students = @TmpStudents;
#	#
# Now deal with that current student thing....	# Now deal with that current student thing....