--- loncom/interface/lonstatistics.pm 2005/10/04 18:27:32 1.125
+++ 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.125 2005/10/04 18:27: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,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; }
</style>
ENDSTYLE
- my $html=&Apache::lonxml::xmlbegin();
- $r->print($html.'<head><title>'.
- &mt('Course Statistics and Charts').
- '</title>'.$style.
- "</head>\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
@@ -1018,7 +1022,7 @@ ENDSTYLE
'retrieved until the database is restarted. '.
'Your data is intact but cannot be displayed '.
'at this time.').'</p>');
- $r->print('</body></html>');
+ $r->print(&Apache::loncommon::end_page());
return;
}
#
@@ -1077,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("</form>\n");
}
- $r->print("</body>\n</html>\n");
+ $r->print(&Apache::loncommon::end_page());
$r->rflush();
#
return OK;