loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.137, 2006/08/18 15:15:38	version 1.138, 2007/06/06 17:30:40
Line 76 use Apache::lonpercentage;	Line 76 use Apache::lonpercentage;
use Apache::lonstudentsubmissions();	use Apache::lonstudentsubmissions();
use Apache::lonsurveyreports();	use Apache::lonsurveyreports();
use Apache::longradinganalysis();	use Apache::longradinganalysis();
use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;

#######################################################	#######################################################
Line 313 sub PrepareClasslist {	Line 312 sub PrepareClasslist {
if ($env{'request.course.sec'} !~ /^\s*$/) {	if ($env{'request.course.sec'} !~ /^\s*$/) {
@Sections = ($env{'request.course.sec'});	@Sections = ($env{'request.course.sec'});
} else {	} else {
@Sections = sort {$a cmp $b} keys(%Sections);	@Sections = sort {
	if ($a == $a && $b == $b ) { return $a <=> $b; }
	return $a cmp $b;
	} keys(%Sections);

unshift(@Sections,'all'); # Put 'all' at the front of the list	unshift(@Sections,'all'); # Put 'all' at the front of the list
}	}
# Sort the groups	# Sort the groups