[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.1 and 1.71

version 1.68.2.1, 2012/05/12 03:52:02 version 1.71, 2014/03/28 15:07:01
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 729  sub html_non_essay_results { Line 731  sub html_non_essay_results {
                 push(@values,$response->{$original_header});                  push(@values,$response->{$original_header});
             }              }
         }          }
           # FIXME: Bug #6700 - Properly process multiple answer fields
           # Would be a good place here but the data needs to be properly
           # compiled somewhere before.
           #      elsif (($resptype =~ /^(numerical|formula|custom)$/) &&
           #             (submission) && (ref)) {
           #        de-ref...: push(@values,$response->{$original_header}); }
     } else {      } else {
         @values = map { $response->{$_}; } @$headers;          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});
               }
           }
     }      }
     my $td = '<td valign="top">';      my $td = '<td valign="top">';
     my $str = $td.join('</td>'.$td,@values).'</td>';      my $str = $td.join('</td>'.$td,@values).'</td>';
Line 1236  sub prepare_csv_output { Line 1259  sub prepare_csv_output {
 sub csv_format_item {  sub csv_format_item {
     my ($item,$type) = @_;      my ($item,$type) = @_;
     if ($type eq 'Time') {      if ($type eq 'Time') {
         $item = localtime($item);          $item = &Apache::lonlocal::locallocaltime($item);
     }      }
     $item =&Apache::loncommon::csv_translate($item);       $item =&Apache::loncommon::csv_translate($item); 
     return $item;      return $item;
Removed from v.1.68.2.1  
changed lines
  Added in v.1.71

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