[BACK]Return to lonstudentsubmissions.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.68.2.3 and 1.69

version 1.68.2.3, 2014/02/26 03:15:04 version 1.69, 2012/10/12 14:08:42
Line 30  use strict; Line 30  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
   use Apache::lonquickgrades();
 use Apache::loncoursedata();  use Apache::loncoursedata();
 use Apache::lonstatistics;  use Apache::lonstatistics;
 use Apache::lonlocal;  use Apache::lonlocal;
Line 63  sub BuildStudentSubmissionsPage { Line 64  sub BuildStudentSubmissionsPage {
     &Apache::lonstatistics::PrepareClasslist();      &Apache::lonstatistics::PrepareClasslist();
     #      #
     $r->print( &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports'));      $r->print( &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports'));
       &Apache::lonquickgrades::startGradeScreen($r,'statistics');
     $r->print(&CreateInterface());      $r->print(&CreateInterface());
     #      #
     my @Students = @Apache::lonstatistics::Students;      my @Students = @Apache::lonstatistics::Students;
Line 733  sub html_non_essay_results { Line 735  sub html_non_essay_results {
         foreach my $original_header (@$headers) {          foreach my $original_header (@$headers) {
             if ($original_header eq 'Time') {              if ($original_header eq 'Time') {
                 push(@values,&Apache::lonlocal::locallocaltime($response->{$original_header}));                  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 {              } else {
                 # A normal column                  # A normal column
                 push(@values,$response->{$original_header});                  push(@values,$response->{$original_header});
Removed from v.1.68.2.3  
changed lines
  Added in v.1.69

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>