[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.54.10.2 and 1.54.10.3

version 1.54.10.2, 2010/09/12 17:37:24 version 1.54.10.3, 2011/11/18 22:20:20
Line 143  sub BuildStudentSubmissionsPage { Line 143  sub BuildStudentSubmissionsPage {
         if (! scalar(@Problems) || ! defined($Problems[0])) {          if (! scalar(@Problems) || ! defined($Problems[0])) {
             $r->print('resource is undefined');              $r->print('resource is undefined');
         } elsif (!$show_named && @Students < $threshold) {          } elsif (!$show_named && @Students < $threshold) {
             $r->print(&mt('The number of students matching the selection criteria is too few for display of submission data for anonymous surveys.').'<br />'.&mt('There must be at least [quant,_1,student].',$threshold).' '.&mt('Contact a Domain Coordinator if you need the threshold to be changed for this course.'));              $r->print(&mt('The number of students matching the selection criteria is too few for display of submission data for anonymous surveys.').'<br />'.&mt('There must be at least [quant,_1,student].',$threshold).' '.&mt('Contact the LON-CAPA [_1]Helpdesk[_2] if you need the threshold to be changed for this course.','<a href="/adm/helpdesk?origurl=%2fadm%2fstatistics>','</a>'));
         } else {          } else {
             if (scalar(@Problems) == 1) {              if (scalar(@Problems) == 1) {
                 my $resource = $Problems[0];                  my $resource = $Problems[0];
Line 819  sub prepare_excel_output { Line 819  sub prepare_excel_output {
         my $anonid = &Crypt::PasswdMD5::unix_md5_crypt($student->{'username'},          my $anonid = &Crypt::PasswdMD5::unix_md5_crypt($student->{'username'},
                                                        $salt);                                                         $salt);
         $anonid = substr($anonid,length($salt)+1);          $anonid = substr($anonid,length($salt)+1);
         foreach my $field (@StudentColumns) {  
             if ($show_named) {  
                 $worksheet->write($student_row,$cols_output++,  
                                   $student->{$field});  
             } else {  
                 $worksheet->write($student_row,$cols_output++,  
                                       $anonid);  
             }  
         }  
         my $last_student_col = $cols_output-1;  
         foreach my $prob (@$Problems) {          foreach my $prob (@$Problems) {
             foreach my $partid (@{$prob->parts}) {              foreach my $partid (@{$prob->parts}) {
                 my @Response = $prob->responseIds($partid);                  my @Response = $prob->responseIds($partid);
Line 877  sub prepare_excel_output { Line 867  sub prepare_excel_output {
                 }                  }
             }              }
         }          }
         # Fill in the remaining rows with the students data          # Prepend current student's user information to all rows 
         for (my $row = $student_row+1;$row<$max_row;$row++) {          for (my $row = $student_row;$row<$max_row;$row++) {
             my $cols = 0;              my $cols = 0;
             foreach my $field (@StudentColumns) {              foreach my $field (@StudentColumns) {
                 if ($show_named) {                  if ($show_named) {
Removed from v.1.54.10.2  
changed lines
  Added in v.1.54.10.3

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