[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.50 and 1.63.2.2

version 1.50, 2008/10/30 17:45:25 version 1.63.2.2, 2011/11/18 21:56:19
Line 76  sub BuildStudentSubmissionsPage { Line 76  sub BuildStudentSubmissionsPage {
                                    '<div class="LC_info">'.&mt('Loading student data...').'</div>');                                     '<div class="LC_info">'.&mt('Loading student data...').'</div>');
     $r->rflush();      $r->rflush();
     #      #
       my %anoncounter =
            &Apache::lonnet::dump('nohist_anonsurveys',
                           $env{'course.'.$env{'request.course.id'}.'.domain'},
                           $env{'course.'.$env{'request.course.id'}.'.num'});
     if (exists($env{'form.problemchoice'}) &&       if (exists($env{'form.problemchoice'}) && 
         ! exists($env{'form.SelectAnother'})) {          ! exists($env{'form.SelectAnother'})) {
         foreach my $button (@SubmitButtons) {          foreach my $button (@SubmitButtons) {
Line 97  sub BuildStudentSubmissionsPage { Line 101  sub BuildStudentSubmissionsPage {
         # Determine which problems we are to analyze          # Determine which problems we are to analyze
         my @Symbs =           my @Symbs = 
             &Apache::lonstathelpers::get_selected_symbs('problemchoice');              &Apache::lonstathelpers::get_selected_symbs('problemchoice');
         foreach my $selected (@Symbs) {  
             $r->print('<input type="hidden" name="problemchoice" value="'.          # If there are multi-part problems with anonymous survey and named
                       $selected.'" />'.$/);          # parts check if named was picked for display.
           #
           my %mixed_named; 
           foreach my $envkey (%env) {
               if ($envkey =~ /^form\.mixed_(\d+:\d+)$/) {
                   my $item = $1; 
                   if ($env{$envkey} =~ /^symb_(.+)$/) {
                       my $symb = &unescape($1);
                       if (ref($mixed_named{$symb}) eq 'ARRAY') {
                           push(@{$mixed_named{$symb}},$item);
                       } else {
                           @{$mixed_named{$symb}} = ($item);
                       }
                   }
               }
         }          }
         #          #
         # Get resource objects          # Get resource objects
         my $navmap = Apache::lonnavmaps::navmap->new();          my $navmap = Apache::lonnavmaps::navmap->new();
         if (!defined($navmap)) {          if (!defined($navmap)) {
               foreach my $selected (@Symbs) {
                   $r->print('<input type="hidden" name="problemchoice" value="'.
                             &escape($selected).'" />'.$/);
                   if (ref($mixed_named{$selected}) eq 'ARRAY') {
                       foreach my $item (@{$mixed_named{$selected}}) {
                           $r->print('<input type="hidden" name="mixed_'.$item.'" value="'.&escape($selected).'" />'.$/);
                       }
                   }
               }
             $r->print('<div class="LC_error">'.&mt("Internal error").'</div>');              $r->print('<div class="LC_error">'.&mt("Internal error").'</div>');
             return;              return;
         }          }
         my %already_seen;          my %already_seen;
         my @Problems;          my (@Problems,@anonProbs,@namedProbs,$show_named);
         foreach my $symb (@Symbs) {          foreach my $symb (@Symbs) {
             my $resource = $navmap->getBySymb($symb);              my $resource = $navmap->getBySymb($symb);
             push(@Problems,$resource);              my ($hasanon,$hasnamed);
               if (ref($resource)) {
                   foreach my $partid (@{$resource->parts}) {
                       if (($anoncounter{$symb."\0".$partid}) || ($resource->is_anonsurvey($partid))) {
                           unless (exists($mixed_named{$symb})) {
                               $hasanon = 1;
                           }
                       } else {
                           $hasnamed = 1;
                       }
                   }
                   if ($hasanon) {
                       push(@anonProbs,$resource);
                   } elsif ($hasnamed) {
                       push(@namedProbs,$resource);
                   }
               }
           }
           if (@namedProbs > 0) {
               @Problems = @namedProbs;
               $show_named = 1;
           } elsif (@anonProbs > 0) {
               @Problems = @anonProbs;
           } 
           foreach my $selected (@Symbs) {
               $r->print('<input type="hidden" name="problemchoice" value="'.
                         &escape($selected).'" />'.$/);
               if (ref($mixed_named{$selected}) eq 'ARRAY') {
                   foreach my $item (@{$mixed_named{$selected}}) {
                       $r->print('<input type="hidden" name="mixed_'.$item.'" value="'.&escape($selected).'" />'.$/);
                   }
               }
           }
           # 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(&mt('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 210  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,\%anoncounter,$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,\%anoncounter,$show_named);
             } else {              } else {
                 &prepare_html_output($r,\@Problems,\@Students);                  &prepare_html_output($r,\@Problems,\@Students,\%anoncounter,$show_named);
             }              }
         }          }
         $r->print('<hr />');          $r->print('<hr />');
Line 144  sub BuildStudentSubmissionsPage { Line 223  sub BuildStudentSubmissionsPage {
                   &mt('Prepare Report').'" />');                    &mt('Prepare Report').'" />');
         $r->print('&nbsp;'x5);          $r->print('&nbsp;'x5);
         $r->print('<p>'.          $r->print('<p>'.
                   &mt('Computing correct answers greatly increasese the amount of time required to prepare a report.').                    &mt('Computing correct answers greatly increases the amount of time required to prepare a report.').
                   '</p>');                    '</p>');
         $r->print('<p>'.          $r->print('<p>'.
                   &mt('Please select problems and use the [_1]Prepare Report[_2] button to continue.','<b>','</b>').                    &mt('Please select problems and use the [_1]Prepare Report[_2] button to continue.','<b>','</b>').
                   '</p>');                    '</p>');
         $r->print(&Apache::lonstathelpers::MultipleProblemSelector          $r->print(&Apache::lonstathelpers::MultipleProblemSelector
                   (undef,'problemchoice','Statistics'));                    (undef,'problemchoice','Statistics',\%anoncounter));
       }
   }
   
   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 307  sub get_headers {
 #########################################################  #########################################################
 #########################################################  #########################################################
 sub prepare_html_output {  sub prepare_html_output {
     my ($r,$problems,$students) = @_;      my ($r,$problems,$students,$anoncounter,$show_named) = @_;
     my $c = $r->connection();      my $c = $r->connection();
     #      #
     # Set a flag for the case when there is just one problem      # Set a flag for the case when there is just one problem
Line 222  sub prepare_html_output { Line 318  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 242  sub prepare_html_output { Line 346  sub prepare_html_output {
     foreach my $prob (@$problems) {      foreach my $prob (@$problems) {
         my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src);          my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src);
         $problem_analysis{$prob->src}=\%analysis;          $problem_analysis{$prob->src}=\%analysis;
           my $symb = $prob->symb();
         #          #
         my $prob_span = 0;          my $prob_span = 0;
         my $single_part = 0;          my $single_part = 0;
         if (scalar(@{$prob->parts}) == 1) {          if (scalar(@{$prob->parts}) == 1) {
             $single_part = 1;              $single_part = 1;
         }          }
           my $shown_parts = 0;
         foreach my $partid (@{$prob->parts}) {          foreach my $partid (@{$prob->parts}) {
               if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) {
                   next if ($show_named);
               } else {
                   next unless ($show_named);
               }
               $shown_parts ++;
             my $part_span = 0;              my $part_span = 0;
             my $responses = [$prob->responseIds($partid)];              my $responses = [$prob->responseIds($partid)];
             my $resptypes = [$prob->responseType($partid)];              my $resptypes = [$prob->responseType($partid)];
Line 265  sub prepare_html_output { Line 377  sub prepare_html_output {
                     $headers{'response'} .=                      $headers{'response'} .=
                         '<th colspan="'.scalar(@headers).'">'.                          '<th colspan="'.scalar(@headers).'">'.
                         &mt('Response [_1]',$responses->[$i]).'</th>';                          &mt('Response [_1]',$responses->[$i]).'</th>';
                     $headers{'student'}.= '<th>'.join('</th><th><nobr>',                      $headers{'student'}.= '<th><span class="LC_nobreak">'.
                                             join('</span></th><th><span class="LC_nobreak">',
                                                       @headers).                                                        @headers).
                                                           '</nobr></th>';                                                            '</span></th>';
                 }                  }
             }              }
             if ($part_span == 0) {              if ($part_span == 0) {
Line 284  sub prepare_html_output { Line 397  sub prepare_html_output {
                 $headers{'part'} .= qq{<th colspan="$part_span">$tmpname</th>};                  $headers{'part'} .= qq{<th colspan="$part_span">$tmpname</th>};
                 $nonempty_part_headers = 1;                  $nonempty_part_headers = 1;
             } else {              } else {
                 $headers{'part'} .= qq{<th colspan="$part_span">&nbsp</th>};                  $headers{'part'} .= qq{<th colspan="$part_span">&nbsp;</th>};
             }              }
             $prob_span += $part_span;              $prob_span += $part_span;
         }          }
           next if (!$shown_parts);
         my $title = $prob->compTitle;          my $title = $prob->compTitle;
         if ($prob_span > 0) {          if ($prob_span > 0) {
             $headers{'problem'}.= qq{<th colspan="$prob_span">$title</th>};              $headers{'problem'}.= qq{<th colspan="$prob_span">$title</th>};
Line 324  sub prepare_html_output { Line 438  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 {
               $student_row_data = '<td valign="top" colspan="'.$student_column_count.'">'.&mt('Anonymized').'</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 334  sub prepare_html_output { Line 460  sub prepare_html_output {
         my %prob_data;          my %prob_data;
         my $maxrow;          my $maxrow;
         foreach my $prob (@$problems) {          foreach my $prob (@$problems) {
             $prob_data{$prob->symb}={};              my $symb = $prob->symb;
               $prob_data{$symb}={};
             foreach my $partid (@{$prob->parts}) {              foreach my $partid (@{$prob->parts}) {
                   if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) {
                       next if ($show_named);
                   } else {
                       next unless ($show_named);
                   }
                 my @responses = $prob->responseIds($partid);                  my @responses = $prob->responseIds($partid);
                 my @response_type = $prob->responseType($partid);                  my @response_type = $prob->responseType($partid);
                 for (my $i=0;$i<=$#responses;$i++) {                  for (my $i=0;$i<=$#responses;$i++) {
Line 443  sub prepare_html_output { Line 575  sub prepare_html_output {
             undef(@essays);              undef(@essays);
         }          }
     } # end of student loop      } # end of student loop
       $r->print('</table>'.$/);
     return;      return;
 }  }
   
Line 501  sub html_essay_results { Line 634  sub html_essay_results {
         if (defined($respid)) {          if (defined($respid)) {
             $id .= ' '.$respid;              $id .= ' '.$respid;
         }          }
         $Str .= '<nobr>'.$id.'</nobr>'.('&nbsp;'x4);          $Str .= '<span class="LC_nobreak">'.$id.'</span>'.('&nbsp;'x4);
     }      }
     #      #
     shift(@$headers); # Get rid of the Submission header      shift(@$headers); # Get rid of the Submission header
Line 510  sub html_essay_results { Line 643  sub html_essay_results {
         $correct = &html_format_essay_sub($response->{'Correct'});          $correct = &html_format_essay_sub($response->{'Correct'});
         shift(@$headers);          shift(@$headers);
     }      }
     $Str .= '<nobr>'.      $Str .= '<span class="LC_nobreak">'.
         join('',          join('',
              map {               map {
                  ('&nbsp;'x4).&mt($_.': [_1]',$response->{$_});                   ('&nbsp;'x4).&mt($_.': [_1]',$response->{$_});
              } @$headers).'</nobr>';               } @$headers).'</span>';
     if (@$headers || ! $single_response) {      if (@$headers || ! $single_response) {
         $Str .= '<br />';          $Str .= '<br />';
     }      }
Line 567  sub html_non_essay_results { Line 700  sub html_non_essay_results {
     if ($resptype eq 'radiobutton') {      if ($resptype eq 'radiobutton') {
         $submission = &HTML::Entities::encode($submission,'<>&"');          $submission = &HTML::Entities::encode($submission,'<>&"');
         $submission =~ s/=([^=])$//;          $submission =~ s/=([^=])$//;
         $submission = '<nobr>'.$submission.'</nobr>';          $submission = '<span class="LC_nobreak">'.$submission.'</span>';
     }      }
     $response->{'Submission'} = $submission;      $response->{'Submission'} = $submission;
     #      #
Line 624  sub html_non_essay_results { Line 757  sub html_non_essay_results {
 #########################################################  #########################################################
 #########################################################  #########################################################
 sub prepare_excel_output {  sub prepare_excel_output {
     my ($r,$Problems,$Students) = @_;      my ($r,$Problems,$Students,$anoncounter,$show_named) = @_;
     my $c = $r->connection();      my $c = $r->connection();
     #      #
     #      #
     # Determine the number of columns in the spreadsheet      # Determine the number of columns in the spreadsheet
     my $columncount = 3; # username, domain, id      my $columncount = 3; # username, domain, id
     my @extra_resp_headers = &get_extra_response_headers();      my @extra_resp_headers = &get_extra_response_headers($show_named);
     my $lastprob;      my $lastprob;
     my %problem_analysis;      my %problem_analysis;
     foreach my $prob (@$Problems) {      foreach my $prob (@$Problems) {
           my $symb = $prob->symb();
         my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src);          my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src);
         $problem_analysis{$prob->src}=\%analysis;          $problem_analysis{$prob->src}=\%analysis;
         foreach my $partid (@{$prob->parts}) {          foreach my $partid (@{$prob->parts}) {
               if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) {
                   next if ($show_named);
               } else {
                   next unless ($show_named);
               }
   
             my $responses = [$prob->responseIds($partid)];              my $responses = [$prob->responseIds($partid)];
             my $resptypes = [$prob->responseType($partid)];              my $resptypes = [$prob->responseType($partid)];
             for (my $i=0;$i<scalar(@$responses);$i++) {              for (my $i=0;$i<scalar(@$responses);$i++) {
Line 654  sub prepare_excel_output { Line 794  sub prepare_excel_output {
     if ($columncount > 255) {      if ($columncount > 255) {
         $r->print('<h1>'.&mt('Unable to complete request').'</h1>'.$/.          $r->print('<h1>'.&mt('Unable to complete request').'</h1>'.$/.
                   '<p>'.&mt('LON-CAPA is unable to produce your Excel spreadsheet because your selections will result in more than 255 columns.  Excel allows only 255 columns in a spreadsheet.').'</p>'.$/.                    '<p>'.&mt('LON-CAPA is unable to produce your Excel spreadsheet because your selections will result in more than 255 columns.  Excel allows only 255 columns in a spreadsheet.').'</p>'.$/.
                   '<p>'.&mt('Consider selecting fewer problems to generate reports on, or reducing the number of items per problem.  Or use HTML or CSV output.').'</p>'.$/.                    '<p>'.&mt('Consider selecting fewer problems to generate reports on, or reducing the number of items per problem.  Or use HTML or CSV output.').'</p>'.$/);
                   '<p>'.&mt('The last problem that will fit in the current spreadsheet is [_1].',$lastprob->compTitle).'</p>');          if (ref($lastprob)) {
               $r->print('<p>'.&mt('The last problem that will fit in the current spreadsheet is [_1].',$lastprob->compTitle).'</p>');
           }
         $r->rflush();          $r->rflush();
         return;          return;
     }      }
Line 694  sub prepare_excel_output { Line 836  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) {      foreach (@StudentColumns) {
         $worksheet->write($header_row,$cols_output++,ucfirst($_),          $worksheet->write($header_row,$cols_output++,ucfirst($_),
                           $format->{'bold'});                            $format->{'bold'});
Line 703  sub prepare_excel_output { Line 850  sub prepare_excel_output {
     my %start_col;      my %start_col;
     foreach my $prob (@$Problems) {      foreach my $prob (@$Problems) {
         my $title = $prob->compTitle;          my $title = $prob->compTitle;
           my $symb = $prob->symb();
         $worksheet->write($title_row,$cols_output,          $worksheet->write($title_row,$cols_output,
                           $title,$format->{'h3'});                            $title,$format->{'h3'});
         foreach my $partid (@{$prob->parts}) {          foreach my $partid (@{$prob->parts}) {
               if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) {
                   next if ($show_named);
               } else {
                   next unless ($show_named);
               }
             $worksheet->write($partid_row,$cols_output,              $worksheet->write($partid_row,$cols_output,
                               $prob->part_display($partid));                                $prob->part_display($partid));
             my $responses = [$prob->responseIds($partid)];              my $responses = [$prob->responseIds($partid)];
Line 741  sub prepare_excel_output { Line 894  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;
         foreach my $field (@StudentColumns) {  
             $worksheet->write($student_row,$cols_output++,  
                               $student->{$field});  
         }  
         my $last_student_col = $cols_output-1;  
         foreach my $prob (@$Problems) {          foreach my $prob (@$Problems) {
               my $symb = $prob->symb();
             foreach my $partid (@{$prob->parts}) {              foreach my $partid (@{$prob->parts}) {
                   if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) {
                       next if ($show_named);
                   } else {
                       next unless ($show_named);
                   }
                 my @Response = $prob->responseIds($partid);                  my @Response = $prob->responseIds($partid);
                 my @ResponseType = $prob->responseType($partid);                  my @ResponseType = $prob->responseType($partid);
                 for (my $i=0;$i<=$#Response;$i++) {                  for (my $i=0;$i<=$#Response;$i++) {
Line 794  sub prepare_excel_output { Line 948  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) {
                 $worksheet->write($row,$cols++,                  if ($show_named) {
                                   $student->{$field});                      $worksheet->write($row,$cols++,
                                         $student->{$field});
                   } else {
                       $worksheet->write($row,$cols++,
                                         &mt('Anonymized'));
                   }
             }              }
         }          }
         &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,          &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
Line 909  sub excel_format_item { Line 1068  sub excel_format_item {
 #########################################################  #########################################################
 #########################################################  #########################################################
 sub prepare_csv_output {  sub prepare_csv_output {
     my ($r,$problems,$students) = @_;      my ($r,$problems,$students,$anoncounter,$show_named) = @_;
     my $c = $r->connection();      my $c = $r->connection();
     #      #
     $r->print('<h2>'.      $r->print('<h2>'.
Line 930  sub prepare_csv_output { Line 1089  sub prepare_csv_output {
             time.'_'.rand(1000000000).'.csv';              time.'_'.rand(1000000000).'.csv';
     unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) {      unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) {
         $r->log_error("Couldn't open $filename for output $!");          $r->log_error("Couldn't open $filename for output $!");
         $r->print('<div class="LC_error">'          $r->print(
                  .&mt('Problems occurred in writing the CSV file. '              '<p class="LC_error">'
                      .'This error has been logged. '             .&mt('Problems occurred in writing the CSV file.')
                      .'Please alert your LON-CAPA administrator.')             .' '.&mt('This error has been logged.')
                  .'</div>');             .' '.&mt('Please alert your LON-CAPA administrator.')
              .'</p>'
           );
         $outputfile = undef;          $outputfile = undef;
     }      }
     #      #
     # 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 = ('username','domain','id','section');
       if ($show_named) {
           @student_columns = qw(username domain id section);
       } else {
           @student_columns = qw(username);
       }
       my $student_column_count = scalar(@student_columns);
     #      #
     my %headers;      my %headers;
     push(@{$headers{'student'}},@student_columns);      push(@{$headers{'student'}},@student_columns);
Line 956  sub prepare_csv_output { Line 1123  sub prepare_csv_output {
     my %start_col;      my %start_col;
     my $max_column = scalar(@student_columns);      my $max_column = scalar(@student_columns);
     foreach my $prob (@$problems) {      foreach my $prob (@$problems) {
           my $symb = $prob->symb();
         my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src);          my %analysis = &Apache::lonstathelpers::get_problem_data($prob->src);
         $problem_analysis{$prob->src}=\%analysis;          $problem_analysis{$prob->src}=\%analysis;
         $headers{'problem'}->[$max_column] = $prob->compTitle;          $headers{'problem'}->[$max_column] = $prob->compTitle;
         foreach my $partid (@{$prob->parts}) {          foreach my $partid (@{$prob->parts}) {
               if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) {
                   next if ($show_named);
               } else {
                   next unless ($show_named);
               }
             $headers{'part'}->[$max_column] = $prob->part_display($partid);              $headers{'part'}->[$max_column] = $prob->part_display($partid);
             my $responses = [$prob->responseIds($partid)];              my $responses = [$prob->responseIds($partid)];
             my $resptypes = [$prob->responseType($partid)];              my $resptypes = [$prob->responseType($partid)];
Line 993  sub prepare_csv_output { Line 1166  sub prepare_csv_output {
         last if ($c->aborted());          last if ($c->aborted());
         my @rows;          my @rows;
         foreach my $prob (@$problems) {          foreach my $prob (@$problems) {
               my $symb = $prob->symb;
             foreach my $partid (@{$prob->parts}) {              foreach my $partid (@{$prob->parts}) {
                   if (($prob->is_anonsurvey($partid)) || ($anoncounter->{$symb."\0".$partid})) {
                       next if ($show_named); 
                   } else {
                       next unless ($show_named);
                   }
                 my @responses = $prob->responseIds($partid);                  my @responses = $prob->responseIds($partid);
                 my @response_type = $prob->responseType($partid);                  my @response_type = $prob->responseType($partid);
                 for (my $i=0;$i<=$#responses;$i++) {                  for (my $i=0;$i<=$#responses;$i++) {
Line 1031  sub prepare_csv_output { Line 1210  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('","',
             for (my $i=scalar(@student_columns);$i<$max_column;$i++) {                                          map { $student->{$_}; }
                                           @student_columns).'"';
               } else {
                   $student_row_data = '"'.&mt('Anonymized').'"';
               }
               print $outputfile $student_row_data;
               for (my $i=$student_column_count;$i<$max_column;$i++) {
                 my $value = &Apache::loncommon::csv_translate($row->[$i]);                  my $value = &Apache::loncommon::csv_translate($row->[$i]);
                 $value ||='';                  $value ||='';
                 print $outputfile ',"'.$value.'"';                  print $outputfile ',"'.$value.'"';
Line 1080  sub CreateInterface { Line 1265  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 1089  sub CreateInterface { Line 1274  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>';
     $Str .= '<th>'.&mt('Groups').'</th>';      $Str .= '<th>'.&mt('Groups').'</th>';
       $Str .= '<th>'.&mt('Student Data').&Apache::loncommon::help_open_topic("Chart_Student_Data").'</th>';
     $Str .= '<th>'.&mt('Access Status').'</th>';      $Str .= '<th>'.&mt('Access Status').'</th>';
 #    $Str .= '<th>'.&mt('Output as [_1]',$output_selector).'</th>';  
     $Str .= '<th>'.&mt('Options').'</th>';      $Str .= '<th>'.&mt('Options').'</th>';
     $Str .= '<th>'.&mt('Output Format').'</th>';      $Str .= '<th>'.&mt('Output Format').'</th>';
     $Str .= &Apache::loncommon::end_data_table_header_row();      $Str .= &Apache::loncommon::end_data_table_header_row();
Line 1109  sub CreateInterface { Line 1294  sub CreateInterface {
     $Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5);      $Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5);
     $Str .= '</td>';      $Str .= '</td>';
     #      #
       $Str .= '<td align="center">'."\n";
       $Str .= &Apache::lonstatistics::StudentDataSelect('StudentData','multiple', 5,undef);
       $Str .= '</td>';
       #
     $Str .= '<td align="center">';      $Str .= '<td align="center">';
     $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);      $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
     $Str .= '</td>';      $Str .= '</td>';
Line 1143  sub CreateInterface { Line 1332  sub CreateInterface {
     }      }
     $prob_status_checkbox .= 'value="true" />';      $prob_status_checkbox .= 'value="true" />';
     #      #
     $Str .= '<td align="right" valign="top">'.      $Str .=
         '<label><b>'.          '<td valign="top">'
         &mt('Show problem [_1]',$prob_checkbox).'</b></label><br />'.         .'<label>'
         '<label><b>'.         .$prob_checkbox.&mt('Show problem')
         &mt('Show correct answers [_1]',$ans_checkbox).'</b></label><br />'.         .'</label><br />'
         '<label><b>'.         .'<label>'
         &mt('Show all submissions [_1]',$all_sub_checkbox).         .' '.$ans_checkbox.&mt('Show correct answers')
         '</b></label><br />'.         .'</label><br />'
         '<label><b>'.         .'<label>'
         &mt('Show problem grading [_1]',$prob_status_checkbox).         .$all_sub_checkbox.&mt('Show all submissions')
         '</b></label><br />'.         .'</label><br />'
         '</td>';         .'<label>'
          .$prob_status_checkbox.&mt('Show problem grading')
          .'</label>'
          .'</td>';
     #      #
     $Str .= '<td align="center" valign="top">'.$output_selector.'</td>';      $Str .= '<td align="center" valign="top">'.$output_selector.'</td>';
     #      #
Removed from v.1.50  
changed lines
  Added in v.1.63.2.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.