version 1.125, 2005/10/04 18:27:32
|
version 1.129, 2006/03/15 19:41:26
|
Line 73 use Apache::lonstudentassessment();
|
Line 73 use Apache::lonstudentassessment();
|
use Apache::lonpercentage; |
use Apache::lonpercentage; |
use Apache::lonstudentsubmissions(); |
use Apache::lonstudentsubmissions(); |
use Apache::lonsurveyreports(); |
use Apache::lonsurveyreports(); |
|
use Apache::longradinganalysis(); |
|
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
Line 267 sub PrepareClasslist {
|
Line 268 sub PrepareClasslist {
|
# Sort the Students |
# Sort the Students |
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 { lc($a->{$sortby}) cmp lc($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.... |
Line 913 sub CreateMainMenu {
|
Line 915 sub CreateMainMenu {
|
short_description => |
short_description => |
&mt('Display a histogram of student performance in the course.'), |
&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', |
# { internal_name => 'student_assessment', |
# name => &mt('Problem Status Chart'), |
# name => &mt('Problem Status Chart'), |
# short_description => |
# short_description => |
Line 983 sub handler {
|
Line 990 sub handler {
|
td.essay { border: 1px solid gray; } |
td.essay { border: 1px solid gray; } |
</style> |
</style> |
ENDSTYLE |
ENDSTYLE |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print($html.'<head><title>'. |
$r->print(&Apache::loncommon::start_page('Course Statistics and Charts', |
&mt('Course Statistics and Charts'). |
$style)); |
'</title>'.$style. |
|
"</head>\n". |
|
&Apache::loncommon::bodytag('Course Statistics and Charts')); |
|
$r->rflush(); |
$r->rflush(); |
# |
# |
# Either print out a menu for them or send them to a report |
# Either print out a menu for them or send them to a report |
Line 1018 ENDSTYLE
|
Line 1022 ENDSTYLE
|
'retrieved until the database is restarted. '. |
'retrieved until the database is restarted. '. |
'Your data is intact but cannot be displayed '. |
'Your data is intact but cannot be displayed '. |
'at this time.').'</p>'); |
'at this time.').'</p>'); |
$r->print('</body></html>'); |
$r->print(&Apache::loncommon::end_page()); |
return; |
return; |
} |
} |
# |
# |
Line 1077 ENDSTYLE
|
Line 1081 ENDSTYLE
|
({href=>'/adm/statistics?reportselected=student_assessment', |
({href=>'/adm/statistics?reportselected=student_assessment', |
text=>'Chart'}); |
text=>'Chart'}); |
&Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c); |
&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("</form>\n"); |
} |
} |
$r->print("</body>\n</html>\n"); |
$r->print(&Apache::loncommon::end_page()); |
$r->rflush(); |
$r->rflush(); |
# |
# |
return OK; |
return OK; |