[BACK]Return to lonsurveyreports.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics

Diff for /loncom/interface/statistics/lonsurveyreports.pm between versions 1.25 and 1.26

version 1.25, 2011/01/17 00:19:41 version 1.26, 2011/12/21 21:25:51
Line 234  sub SurveyProblemSelector { Line 234  sub SurveyProblemSelector {
 sub compile_student_answers {  sub compile_student_answers {
     my ($r,$problem,$ProblemData,$Students) = @_;      my ($r,$problem,$ProblemData,$Students) = @_;
     my $resource = $problem->{'resource'};      my $resource = $problem->{'resource'};
     my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin      my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$Students));
         ($r,'Processing Student Submissions',  
          'Processing Student Submissions',   
          scalar(@$Students),'inline',undef,'Statistics','stats_status');  
     foreach my $student (@$Students) {      foreach my $student (@$Students) {
         foreach my $partid (@{$resource->parts}) {          foreach my $partid (@{$resource->parts}) {
             my @response_ids   = $resource->responseIds($partid);              my @response_ids   = $resource->responseIds($partid);
Line 279  sub compile_student_answers { Line 276  sub compile_student_answers {
                 }                  }
             }              }
         }          }
         &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,          &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');
                                                  'last student');  
     }      }
     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);      &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
     return;      return;
Line 671  sub CreateInterface { Line 667  sub CreateInterface {
     $Str .= &Apache::loncommon::end_data_table_row();      $Str .= &Apache::loncommon::end_data_table_row();
     $Str .= &Apache::loncommon::end_data_table();      $Str .= &Apache::loncommon::end_data_table();
     #      #
     $Str .= '<p><span class="LC_nobreak">'  
            .&mt('Status: [_1]',  
                     '<input type="text" name="stats_status"'  
                    .' size="60" value="" readonly="readonly" />')  
            .'</span></p>';  
     $Str .= '</p>';      $Str .= '</p>';
     ##      ##
     return $Str;      return $Str;
Removed from v.1.25  
changed lines
  Added in v.1.26

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