--- loncom/interface/statistics/lonstudentsubmissions.pm 2014/02/26 03:15:04 1.68.2.3 +++ loncom/interface/statistics/lonstudentsubmissions.pm 2012/10/12 14:08:42 1.69 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentsubmissions.pm,v 1.68.2.3 2014/02/26 03:15:04 raeburn Exp $ +# $Id: lonstudentsubmissions.pm,v 1.69 2012/10/12 14:08:42 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,6 +30,7 @@ use strict; use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon(); +use Apache::lonquickgrades(); use Apache::loncoursedata(); use Apache::lonstatistics; use Apache::lonlocal; @@ -63,6 +64,7 @@ sub BuildStudentSubmissionsPage { &Apache::lonstatistics::PrepareClasslist(); # $r->print( &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports')); + &Apache::lonquickgrades::startGradeScreen($r,'statistics'); $r->print(&CreateInterface()); # my @Students = @Apache::lonstatistics::Students; @@ -733,14 +735,6 @@ sub html_non_essay_results { foreach my $original_header (@$headers) { if ($original_header eq 'Time') { push(@values,&Apache::lonlocal::locallocaltime($response->{$original_header})); - } elsif (($original_header eq 'Submission') && - !($resptype =~ /^(radiobutton|option|match|rank)$/)) { - # encode all submissions which have not been encoded above - push(@values,&HTML::Entities::encode($response->{$original_header},'<>&"')); - } elsif (($original_header eq 'Correct') && - ($resptype eq 'radiobutton')) { - # encode foil separators - push(@values,&HTML::Entities::encode($response->{$original_header},'&')); } else { # A normal column push(@values,$response->{$original_header});