[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.41 and 1.42

version 1.41, 2005/04/12 21:49:49 version 1.42, 2006/04/29 18:01:17
Line 190  sub get_headers { Line 190  sub get_headers {
             shift(@basic_headers);  # Get rid of 'Correct'              shift(@basic_headers);  # Get rid of 'Correct'
         }          }
         @headers = (@foils,@basic_headers);          @headers = (@foils,@basic_headers);
       } elsif (lc($resptype) eq 'task') {
           @headers = ('Grader','Status',@basic_headers,'Submission');
     } else {      } else {
         @headers = ('Submission',@basic_headers);          @headers = ('Submission',@basic_headers);
     }      }
Line 369  sub prepare_html_output { Line 371  sub prepare_html_output {
                                                      $response,                                                       $response,
                                                      $single_response).                                                       $single_response).
                                  '</td>');                                   '</td>');
    } elsif (lc($resptype) eq 'task') {
       my $results = 
    &html_task_results(\@headers,
      $prob,$partid,$respid,
      $response,$resptype);
       if ($results) {
    push(@{$resp_data->{'real'}},$results);
       }
                         } else {                          } else {
                             push(@{$resp_data->{'real'}},                              push(@{$resp_data->{'real'}},
                                  &html_non_essay_results(\@headers,                                   &html_non_essay_results(\@headers,
Line 442  sub hashify_response { Line 452  sub hashify_response {
     }      }
     $resp_hash->{'Submission'} =       $resp_hash->{'Submission'} = 
         $response->[&Apache::loncoursedata::RDs_submission()];          $response->[&Apache::loncoursedata::RDs_submission()];
     $resp_hash->{'Award Detail'} =   
         $response->[&Apache::loncoursedata::RDs_awarddetail()];  
     $resp_hash->{'Time'} =       $resp_hash->{'Time'} = 
         $response->[&Apache::loncoursedata::RDs_timestamp()];          $response->[&Apache::loncoursedata::RDs_timestamp()];
     $resp_hash->{'Attempt'} =      $resp_hash->{'Attempt'} =
         $response->[&Apache::loncoursedata::RDs_tries()];          $response->[&Apache::loncoursedata::RDs_tries()];
     $resp_hash->{'Awarded'} =       $resp_hash->{'Awarded'} = 
         $response->[&Apache::loncoursedata::RDs_awarded()];          $response->[&Apache::loncoursedata::RDs_awarded()];
       if ($prob->is_task()) {
    $resp_hash->{'Grader'} = 
       $response->[&Apache::loncoursedata::RDs_response_eval_2()];
    if ($resp_hash->{'Attempt'} eq '0') {
       $resp_hash->{'Attempt'} = '';
    }
    $resp_hash->{'Award Detail'} = 
       $response->[&Apache::loncoursedata::RDs_part_award()];
    $resp_hash->{'Status'} = 
       $response->[&Apache::loncoursedata::RDs_response_eval()];
       } else {
    $resp_hash->{'Award Detail'} = 
       $response->[&Apache::loncoursedata::RDs_awarddetail()];
       }
   
     return $resp_hash;      return $resp_hash;
 }  }
   
Line 512  sub html_format_essay_sub { Line 535  sub html_format_essay_sub {
     return $submission;      return $submission;
 }  }
   
   sub html_task_results {
       my ($headers,$prob,$partid,$respid,$response,$resptype) = @_;
       if (! ref($headers) || ref($headers) ne 'ARRAY' || ! scalar(@$headers)) {
           return '';
       }
   
       my @values;
       @values = map { $response->{$_}; } @$headers;
   
       my $td = '<td valign="top">';
       my $str = $td.join('</td>'.$td,@values).'</td>';
       return $str;
   }
   
 sub html_non_essay_results {  sub html_non_essay_results {
     my ($headers,$prob,$partid,$respid,$response,$resptype) = @_;      my ($headers,$prob,$partid,$respid,$response,$resptype) = @_;
     if (! ref($headers) || ref($headers) ne 'ARRAY' || ! scalar(@$headers)) {      if (! ref($headers) || ref($headers) ne 'ARRAY' || ! scalar(@$headers)) {
Line 792  sub compile_response_data { Line 829  sub compile_response_data {
     my $submission =       my $submission = 
         &HTML::Entities::decode          &HTML::Entities::decode
         (&Apache::lonnet::unescape($response->{'Submission'}));          (&Apache::lonnet::unescape($response->{'Submission'}));
     return () if (! defined($submission) || $submission eq '');      if (!$prob->is_task()) {
    return () if (! defined($submission) || $submission eq '');
       }
     $submission =~ s/\\\"/\"/g;      $submission =~ s/\\\"/\"/g;
     $submission =~ s/\\\'/\'/g;      $submission =~ s/\\\'/\'/g;
     if ($resptype eq 'radiobutton') {      if ($resptype eq 'radiobutton') {
Line 1106  sub CreateInterface { Line 1145  sub CreateInterface {
     $Str .= '</tr>'."\n";      $Str .= '</tr>'."\n";
     $Str .= '</table>'."\n";      $Str .= '</table>'."\n";
     #      #
     $Str .= '<nobr>'.&mt('Status: [_1]',      $Str .= '<p><nobr>'.&mt('Status: [_1]',
                          '<input type="text" '.                           '<input type="text" '.
                          'name="stats_status" size="60" value="" />').                           'name="stats_status" size="60" value="" />').
             '</nobr>'.'</p>';                  '</nobr>'.'</p>';    
Removed from v.1.41  
changed lines
  Added in v.1.42

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