--- loncom/interface/statistics/lonstudentassessment.pm 2012/02/17 21:49:58 1.162.2.1 +++ loncom/interface/statistics/lonstudentassessment.pm 2010/12/04 14:41:13 1.163 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentassessment.pm,v 1.162.2.1 2012/02/17 21:49:58 raeburn Exp $ +# $Id: lonstudentassessment.pm,v 1.163 2010/12/04 14:41:13 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -51,6 +51,7 @@ package Apache::lonstudentassessment; use strict; use Apache::lonstatistics(); +use Apache::lonquickgrades(); use Apache::lonhtmlcommon(); use Apache::loncommon(); use Apache::loncoursedata; @@ -166,6 +167,9 @@ sub BuildStudentAssessmentPage { &Apache::lonstatistics::DisplayClasslist($r); return; } + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data')); + &Apache::lonquickgrades::startGradeScreen($r,'chart'); + # # Print out the HTML headers for the interface # This also parses the output mode selector @@ -230,6 +234,7 @@ sub BuildStudentAssessmentPage { $output_student->($r,$student); } # Call the "finish" routine selected above + &Apache::lonquickgrades::endGradeScreen($r); $finish->($r); # return; @@ -318,8 +323,6 @@ the chart page. ####################################################### sub CreateInterface { my $Str = ''; - $Str .= &Apache::lonhtmlcommon::breadcrumbs('Chart','Chart_Description:Chart_Sections:Chart_Student_Data:Chart_Enrollment_Status:Chart_Sequences:Chart_Output_Formats:Chart_Output_Data'); -# $Str .= &CreateLegend(); $Str .= ''."\n"; $Str .= ''; $Str .= '
'.&mt('Sections').''. @@ -841,7 +844,6 @@ sub html_outputstudent { if ($field eq 'comments') { $title = ''.&mt('Comments').''; } - utf8::decode($title); my $base = length($title); my $width=$Apache::lonstatistics::StudentData{$field}->{'width'}; $Str .= $title.' 'x($width-$base).$padding;