--- loncom/interface/statistics/lonstudentassessment.pm 2014/04/05 13:03:06 1.169.2.6 +++ loncom/interface/statistics/lonstudentassessment.pm 2013/07/22 18:06:58 1.173 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentassessment.pm,v 1.169.2.6 2014/04/05 13:03:06 raeburn Exp $ +# $Id: lonstudentassessment.pm,v 1.173 2013/07/22 18:06:58 bisitz 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; @@ -167,6 +168,7 @@ sub BuildStudentAssessmentPage { 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 @@ -232,6 +234,7 @@ sub BuildStudentAssessmentPage { $output_student->($r,$student); } # Call the "finish" routine selected above + &Apache::lonquickgrades::endGradeScreen($r); $finish->($r); # return; @@ -427,7 +430,7 @@ my @OutputOptions = sub OutputDescriptions { my $Str = ''; - $Str .= '
'. + $r->print("
'. + $r->print("