[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.23 and 1.26

version 1.23, 2010/01/14 17:20:52 version 1.26, 2011/12/21 21:25:51
Line 30  use strict; Line 30  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
   use Apache::lonquickgrades();
 use Apache::loncoursedata();  use Apache::loncoursedata();
 use Apache::lonstatistics;  use Apache::lonstatistics;
 use Apache::lonlocal;  use Apache::lonlocal;
Line 63  sub BuildSurveyReportsPage { Line 64  sub BuildSurveyReportsPage {
                                );                                 );
     &Apache::loncommon::store_course_settings('survey_reports',      &Apache::loncommon::store_course_settings('survey_reports',
                                               \%Saveable_Parameters);                                                \%Saveable_Parameters);
     &Apache::loncommon::restore_course_settings('survey_resports',      &Apache::loncommon::restore_course_settings('survey_reports',
                                                 \%Saveable_Parameters);                                                  \%Saveable_Parameters);
     #      #
     &Apache::lonstatistics::PrepareClasslist();      &Apache::lonstatistics::PrepareClasslist();
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports'));
       &Apache::lonquickgrades::startGradeScreen($r,'statistics');
   
     #      #
     $r->print(&CreateInterface());      $r->print(&CreateInterface());
     #      #
Line 177  sub SurveyProblemSelector { Line 181  sub SurveyProblemSelector {
         my @resources = &Apache::lonstathelpers::get_resources($navmap,$seq);          my @resources = &Apache::lonstathelpers::get_resources($navmap,$seq);
         foreach my $res (@resources) {          foreach my $res (@resources) {
             foreach my $part (@{$res->parts}) {              foreach my $part (@{$res->parts}) {
                 if ($res->is_survey($part)) {                  if (($res->is_survey($part)) || ($res->is_anonsurvey($part))) {
                     push(@SurveyProblems,{res=>$res,seq=>$seq,part=>$part});                      push(@SurveyProblems,{res=>$res,seq=>$seq,part=>$part});
                     last;                      last;
                 }                  }
Line 230  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 275  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 626  sub CreateInterface { Line 626  sub CreateInterface {
         $output_selector.= '>'.$output_format->{'text'}.'</option>'.$/;          $output_selector.= '>'.$output_format->{'text'}.'</option>'.$/;
     }      }
     $output_selector .= '</select>'.$/;      $output_selector .= '</select>'.$/;
     $Str .= &Apache::lonhtmlcommon::breadcrumbs('Student Submission Reports');  
     $Str .= '<p>';      $Str .= '<p>';
     $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();
Line 668  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.23  
changed lines
  Added in v.1.26

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