--- loncom/interface/lonstatistics.pm 2005/04/07 07:34:52 1.124 +++ loncom/interface/lonstatistics.pm 2006/03/15 19:41:26 1.129 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstatistics.pm,v 1.124 2005/04/07 07:34:52 albertel Exp $ +# $Id: lonstatistics.pm,v 1.129 2006/03/15 19:41:26 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -73,6 +73,7 @@ use Apache::lonstudentassessment(); use Apache::lonpercentage; use Apache::lonstudentsubmissions(); use Apache::lonsurveyreports(); +use Apache::longradinganalysis(); ####################################################### ####################################################### @@ -197,8 +198,8 @@ sub PrepareClasslist { my $cid = $env{'request.course.id'}; my $cdom = $env{'course.'.$cid.'.domain'}; my $cnum = $env{'course.'.$cid.'.num'}; - my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cid, - $cdom,$cnum); + my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cdom, + $cnum); my @selected_sections = &get_selected_sections(); # # Deal with instructors with restricted section access @@ -267,8 +268,9 @@ sub PrepareClasslist { # Sort the Students my $sortby = 'fullname'; $sortby = $env{'form.sort'} if (exists($env{'form.sort'})); - my @TmpStudents = sort { $a->{$sortby} cmp $b->{$sortby} || - $a->{'fullname'} cmp $b->{'fullname'} } @Students; + my @TmpStudents = sort { lc($a->{$sortby}) cmp lc($b->{$sortby}) || + lc($a->{'fullname'}) cmp lc($b->{'fullname'}) || + lc($a->{'username'}) cmp lc($b->{'username'}) } @Students; @Students = @TmpStudents; # # Now deal with that current student thing.... @@ -913,6 +915,11 @@ sub CreateMainMenu { short_description => &mt('Display a histogram of student performance in the course.'), }, +# { internal_name => 'grading_analysis', +# name => &mt('Detailed Grading Analysis'), +# short_description => +# &mt('Display statistics about who graded who.'), +# }, # { internal_name => 'student_assessment', # name => &mt('Problem Status Chart'), # short_description => @@ -983,12 +990,9 @@ sub handler { td.essay { border: 1px solid gray; } ENDSTYLE - my $html=&Apache::lonxml::xmlbegin(); - $r->print($html.'