--- loncom/interface/lonstatistics.pm 2005/12/13 16:25:32 1.126 +++ 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.126 2005/12/13 16:25:32 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(); ####################################################### ####################################################### @@ -267,7 +268,7 @@ 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} || + 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; @@ -914,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 => @@ -984,12 +990,9 @@ sub handler { td.essay { border: 1px solid gray; } ENDSTYLE - my $html=&Apache::lonxml::xmlbegin(); - $r->print($html.''. - &mt('Course Statistics and Charts'). - ''.$style. - "\n". - &Apache::loncommon::bodytag('Course Statistics and Charts')); + + $r->print(&Apache::loncommon::start_page('Course Statistics and Charts', + $style)); $r->rflush(); # # Either print out a menu for them or send them to a report @@ -1019,7 +1022,7 @@ ENDSTYLE 'retrieved until the database is restarted. '. 'Your data is intact but cannot be displayed '. 'at this time.').'

'); - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return; } # @@ -1078,11 +1081,16 @@ ENDSTYLE ({href=>'/adm/statistics?reportselected=student_assessment', text=>'Chart'}); &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c); - } + } elsif($GoToPage eq 'grading_analysis') { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>'/adm/statistics?reportselected=grading_anaylsis', + text=>'Grading Analysis'}); + &Apache::longradinganalysis::build_grading_analysis_page($r,$c); + } # $r->print("\n"); } - $r->print("\n\n"); + $r->print(&Apache::loncommon::end_page()); $r->rflush(); # return OK;