Diff for /loncom/interface/statistics/lonstudentsubmissions.pm between versions 1.54 and 1.54.10.1

version 1.54, 2009/04/21 13:28:23 version 1.54.10.1, 2010/09/11 19:08:22
Line 37  use Apache::lonstathelpers; Line 37  use Apache::lonstathelpers;
 use HTML::Entities();  use HTML::Entities();
 use Time::Local();  use Time::Local();
 use Spreadsheet::WriteExcel();  use Spreadsheet::WriteExcel();
   use Crypt::PasswdMD5;
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA;  use LONCAPA;
       
Line 109  sub BuildStudentSubmissionsPage { Line 110  sub BuildStudentSubmissionsPage {
             return;              return;
         }          }
         my %already_seen;          my %already_seen;
         my @Problems;          my (@Problems,$show_named);
           unless (&Apache::loncommon::needs_gci_custom()) {
               $show_named = 1;  
           }
         foreach my $symb (@Symbs) {          foreach my $symb (@Symbs) {
             my $resource = $navmap->getBySymb($symb);              my $resource = $navmap->getBySymb($symb);
             push(@Problems,$resource);              push(@Problems,$resource);
         }          }
           # If these are to be anonymized, do a random shuffle of @Students. 
           unless ($show_named) {
               &array_shuffle(\@Students);
           }
           my $threshold = $env{'course.'.$env{'request.course.id'}.'.internal.anonsurvey_threshold'};
           if ($threshold eq '') {
               my %domconfig =
                   &Apache::lonnet::get_dom('configuration',['coursedefaults'],
                                           $env{'course.'.$env{'request.course.id'}.'.domain'});
               if (ref($domconfig{'coursedefaults'}) eq 'HASH') {
                   $threshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'};
                   if ($threshold eq '') {
                       $threshold = 10;
                   }
               } else {
                   $threshold = 10;
               }
           }
         #           # 
         $r->print('<h4>'.          $r->print('<h4>'.
                   &Apache::lonstatistics::section_and_enrollment_description().                    &Apache::lonstatistics::section_and_enrollment_description().
                   '</h4>');                    '</h4>');
         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) {
               $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.'));
         } else {          } else {
             if (scalar(@Problems) == 1) {              if (scalar(@Problems) == 1) {
                 my $resource = $Problems[0];                  my $resource = $Problems[0];
Line 131  sub BuildStudentSubmissionsPage { Line 155  sub BuildStudentSubmissionsPage {
                 }                  }
             }              }
             if ($env{'form.output'} eq 'excel') {              if ($env{'form.output'} eq 'excel') {
                 &prepare_excel_output($r,\@Problems,\@Students);                  &prepare_excel_output($r,\@Problems,\@Students,$show_named);
             } elsif ($env{'form.output'} eq 'csv') {              } elsif ($env{'form.output'} eq 'csv') {
                 &prepare_csv_output($r,\@Problems,\@Students);                  &prepare_csv_output($r,\@Problems,\@Students,$show_named);
             } else {              } else {
                 &prepare_html_output($r,\@Problems,\@Students);                  &prepare_html_output($r,\@Problems,\@Students,$show_named);
             }              }
         }          }
         $r->print('<hr />');          $r->print('<hr />');
Line 154  sub BuildStudentSubmissionsPage { Line 178  sub BuildStudentSubmissionsPage {
     }      }
 }  }
   
   sub array_shuffle {
       my $array = shift;
       return unless (ref($array) eq 'ARRAY');
       my $i = scalar(@$array);
       my $j;
       foreach my $item (@$array) {
           --$i;
           $j = int(rand($i+1));
           next if($i == $j);
           @$array [$i,$j] = @$array[$j,$i];
       }
       return @$array;
   }
   
 ##  ##
 ## get_extra_response_headers  ## get_extra_response_headers
 ##  ##
   
 sub get_extra_response_headers {  sub get_extra_response_headers {
       my ($show_named) = @_;
     my @extra_resp_headers;      my @extra_resp_headers;
     if ($env{'form.correctans'} eq 'true') {      if ($env{'form.correctans'} eq 'true') {
         push(@extra_resp_headers,'Correct');          push(@extra_resp_headers,'Correct');
     }       }
     if ($env{'form.prob_status'} eq 'true') {      if ($show_named) { 
         push(@extra_resp_headers,'Award Detail');           if ($env{'form.prob_status'} eq 'true') {
         push(@extra_resp_headers,'Time');              push(@extra_resp_headers,'Award Detail'); 
         push(@extra_resp_headers,'Attempt');              push(@extra_resp_headers,'Time');
         push(@extra_resp_headers,'Awarded');              push(@extra_resp_headers,'Attempt');
               push(@extra_resp_headers,'Awarded');
           }
     }      }
     return @extra_resp_headers;      return @extra_resp_headers;
 }  }
Line 211  sub get_headers { Line 253  sub get_headers {
 #########################################################  #########################################################
 #########################################################  #########################################################
 sub prepare_html_output {  sub prepare_html_output {
     my ($r,$problems,$students) = @_;      my ($r,$problems,$students,$show_named) = @_;
     my $c = $r->connection();      my $c = $r->connection();
       my $salt = '$1$'.$Apache::lonnet::perlvar{'AnonymousSalt'};
     #      #
     # Set a flag for the case when there is just one problem      # Set a flag for the case when there is just one problem
     my $single_response = 0;      my $single_response = 0;
Line 222  sub prepare_html_output { Line 265  sub prepare_html_output {
     }      }
     #      #
     # Compute the number of columns per response      # Compute the number of columns per response
     my @extra_resp_headers = &get_extra_response_headers();      my @extra_resp_headers = &get_extra_response_headers($show_named);
     #      #
     # Create the table header      # Create the table header
     my @student_columns = ('username','domain','id','section');      my @student_columns;
       if ($show_named) {
           @student_columns = @Apache::lonstatistics::SelectedStudentData;
           if (grep(/^all$/,@student_columns)) {
               @student_columns = qw(fullname username domain id section status groups comments);
           }
       } else {
           @student_columns = ('username');
       }
     #      #
     my %headers;      my %headers;
     my $student_column_count = scalar(@student_columns);      my $student_column_count = scalar(@student_columns);
Line 325  sub prepare_html_output { Line 376  sub prepare_html_output {
             $count = 0;              $count = 0;
         }          }
         last if ($c->aborted());          last if ($c->aborted());
         foreach my $field (@student_columns) {          if ($show_named) {
             $student_row_data .=               foreach my $field (@student_columns) {
                 '<td valign="top">'.$student->{$field}.'</td>';                  $student_row_data .= '<td valign="top">';
                   # handle comments like in lonstudentassessment.pm
                   if($field eq 'comments') {
                       $student_row_data .= 
                           '<a href="/adm/'.$student->{'domain'}.'/'.
                           $student->{'username'}.'/'.'aboutme#coursecomment">'.&mt('Comments').'</a>';
                   } else {
                       $student_row_data .= $student->{$field};
                   }
                   $student_row_data .= '</td>';
               }
           } else {
               my $anonid = &Crypt::PasswdMD5::unix_md5_crypt($student->{'username'},
                                                              $salt);
               $anonid = substr($anonid,length($salt)+1);
               $student_row_data = '<td valign="top" colspan="'.$student_column_count.'">'.
                                   $anonid.'</td>';
         }          }
         #          #
         # Figure out what it is we need to output for this student          # Figure out what it is we need to output for this student
Line 444  sub prepare_html_output { Line 511  sub prepare_html_output {
             undef(@essays);              undef(@essays);
         }          }
     } # end of student loop      } # end of student loop
       $r->print('</table>'.$/);
     return;      return;
 }  }
   
Line 625  sub html_non_essay_results { Line 693  sub html_non_essay_results {
 #########################################################  #########################################################
 #########################################################  #########################################################
 sub prepare_excel_output {  sub prepare_excel_output {
     my ($r,$Problems,$Students) = @_;      my ($r,$Problems,$Students,$show_named) = @_;
     my $c = $r->connection();      my $c = $r->connection();
       my $salt = '$1$'.$Apache::lonnet::perlvar{'AnonymousSalt'};
     #      #
     #      #
     # Determine the number of columns in the spreadsheet      # Determine the number of columns in the spreadsheet
Line 695  sub prepare_excel_output { Line 764  sub prepare_excel_output {
     $worksheet->write($partid_row,0,'Part ID',$format->{'bold'});      $worksheet->write($partid_row,0,'Part ID',$format->{'bold'});
     $worksheet->write($respid_row,0,'Response ID',$format->{'bold'});      $worksheet->write($respid_row,0,'Response ID',$format->{'bold'});
     # Student headers      # Student headers
     my @StudentColumns = ('username','domain','id','section');      my @StudentColumns;
       if ($show_named) {
           @StudentColumns = qw(username domain id section);
       } else {
           @StudentColumns = qw(username);
       }
       foreach (@StudentColumns) {
           $worksheet->write($header_row,$cols_output++,ucfirst($_),
                             $format->{'bold'});
       }
     foreach (@StudentColumns) {      foreach (@StudentColumns) {
         $worksheet->write($header_row,$cols_output++,ucfirst($_),          $worksheet->write($header_row,$cols_output++,ucfirst($_),
                           $format->{'bold'});                            $format->{'bold'});
Line 742  sub prepare_excel_output { Line 820  sub prepare_excel_output {
         last if ($c->aborted());          last if ($c->aborted());
         $cols_output = 0;          $cols_output = 0;
         my $student_row = $max_row;          my $student_row = $max_row;
           my $anonid = &Crypt::PasswdMD5::unix_md5_crypt($student->{'username'},
                                                          $salt);
           $anonid = substr($anonid,length($salt)+1);
         foreach my $field (@StudentColumns) {          foreach my $field (@StudentColumns) {
             $worksheet->write($student_row,$cols_output++,              if ($show_named) {
                               $student->{$field});                  $worksheet->write($student_row,$cols_output++,
                                     $student->{$field});
               } else {
                   $worksheet->write($student_row,$cols_output++,
                                         $anonid);
               }
         }          }
         my $last_student_col = $cols_output-1;          my $last_student_col = $cols_output-1;
         foreach my $prob (@$Problems) {          foreach my $prob (@$Problems) {
Line 799  sub prepare_excel_output { Line 885  sub prepare_excel_output {
         for (my $row = $student_row+1;$row<$max_row;$row++) {          for (my $row = $student_row+1;$row<$max_row;$row++) {
             my $cols = 0;              my $cols = 0;
             foreach my $field (@StudentColumns) {              foreach my $field (@StudentColumns) {
                 $worksheet->write($row,$cols++,                  if ($show_named) {
                                   $student->{$field});                      $worksheet->write($row,$cols++,
                                         $student->{$field});
                   } else {
                       $worksheet->write($row,$cols++,
                                         $anonid);
                   }
             }              }
         }          }
         &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,          &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
Line 910  sub excel_format_item { Line 1001  sub excel_format_item {
 #########################################################  #########################################################
 #########################################################  #########################################################
 sub prepare_csv_output {  sub prepare_csv_output {
     my ($r,$problems,$students) = @_;      my ($r,$problems,$students,$show_named) = @_;
     my $c = $r->connection();      my $c = $r->connection();
       my $salt = '$1$'.$Apache::lonnet::perlvar{'AnonymousSalt'};
     #      #
     $r->print('<h2>'.      $r->print('<h2>'.
               &mt('Generating CSV report of student responses').'</h2>');                &mt('Generating CSV report of student responses').'</h2>');
Line 940  sub prepare_csv_output { Line 1032  sub prepare_csv_output {
     }      }
     #      #
     # Compute the number of columns per response      # Compute the number of columns per response
     my @extra_resp_headers = &get_extra_response_headers();      my @extra_resp_headers = &get_extra_response_headers($show_named);
     #      #
     # Create the table header      # Create the table header
     my @student_columns = ('username','domain','id','section');      my @student_columns;
       if ($show_named) {
           @student_columns = qw(username domain id section);
       } else {
           @student_columns = qw(username);
       }
     #      #
     my %headers;      my %headers;
     push(@{$headers{'student'}},@student_columns);      push(@{$headers{'student'}},@student_columns);
Line 992  sub prepare_csv_output { Line 1089  sub prepare_csv_output {
     # Main loop      # Main loop
     foreach my $student (@$students) {      foreach my $student (@$students) {
         last if ($c->aborted());          last if ($c->aborted());
           my $anonid = &Crypt::PasswdMD5::unix_md5_crypt($student->{'username'},
                                                          $salt);
          $anonid = substr($anonid,length($salt)+1);
         my @rows;          my @rows;
         foreach my $prob (@$problems) {          foreach my $prob (@$problems) {
             foreach my $partid (@{$prob->parts}) {              foreach my $partid (@{$prob->parts}) {
Line 1032  sub prepare_csv_output { Line 1132  sub prepare_csv_output {
             }              }
         }          }
         foreach my $row (@rows) {          foreach my $row (@rows) {
             print $outputfile '"'.join('","',              my $student_row_data = '';
                                        map { $student->{$_}; }              if ($show_named) {
                                        @student_columns).'"';                  $student_row_data = '"'.join('","',
                                           map { $student->{$_}; }
                                           @student_columns).'"';
               } else {
                   $student_row_data = '"'.$anonid.'"';
               }
               print $outputfile $student_row_data;
             for (my $i=scalar(@student_columns);$i<$max_column;$i++) {              for (my $i=scalar(@student_columns);$i<$max_column;$i++) {
                 my $value = &Apache::loncommon::csv_translate($row->[$i]);                  my $value = &Apache::loncommon::csv_translate($row->[$i]);
                 $value ||='';                  $value ||='';
Line 1081  sub CreateInterface { Line 1187  sub CreateInterface {
     foreach ('HTML','Excel','CSV') {      foreach ('HTML','Excel','CSV') {
         $output_selector .= '    <option value="'.lc($_).'"';          $output_selector .= '    <option value="'.lc($_).'"';
         if ($env{'form.output'} eq lc($_)) {          if ($env{'form.output'} eq lc($_)) {
             $output_selector .= ' selected ';              $output_selector .= ' selected="selected" ';
         }          }
         $output_selector .='>'.&mt($_).'</option>'.$/;          $output_selector .='>'.&mt($_).'</option>'.$/;
     }       } 
Line 1090  sub CreateInterface { Line 1196  sub CreateInterface {
     ## Environment variable initialization      ## Environment variable initialization
     my $Str = '';      my $Str = '';
     $Str .= &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports');      $Str .= &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports');
     $Str .= '<p>';      $Str .= '<br />';
     $Str .= &Apache::loncommon::start_data_table();      $Str .= &Apache::loncommon::start_data_table();
     $Str .= &Apache::loncommon::start_data_table_header_row();      $Str .= &Apache::loncommon::start_data_table_header_row();
     $Str .= '<th>'.&mt('Sections').'</th>';      $Str .= '<th>'.&mt('Sections').'</th>';
Line 1166  sub CreateInterface { Line 1272  sub CreateInterface {
                     '<input type="text" name="stats_status"'                      '<input type="text" name="stats_status"'
                    .' size="60" value="" readonly="readonly" />')                     .' size="60" value="" readonly="readonly" />')
            .'</span></p>';             .'</span></p>';
     $Str .= '</p>';  
     ##      ##
     return $Str;      return $Str;
 }  }

Removed from v.1.54  
changed lines
  Added in v.1.54.10.1


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