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

Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.16 and 1.20

version 1.16, 2002/11/25 18:17:36 version 1.20, 2003/03/03 21:52:24
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # (Publication Handler  
 #  #
 # $Id$  # $Id$
 #  #
Line 56  sub BuildProblemAnalysisPage { Line 55  sub BuildProblemAnalysisPage {
     $Ptr .= '<td align="left">'."\n";      $Ptr .= '<td align="left">'."\n";
     my @sectionsSelected = split(':',$cache{'sectionsSelected'});      my @sectionsSelected = split(':',$cache{'sectionsSelected'});
     my @sections = split(':',$cache{'sectionList'});      my @sections = split(':',$cache{'sectionList'});
     $Ptr .= &Apache::lonhtmlcommon::MultipleSectionSelect(\@sections,      $Ptr .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
                                                           \@sectionsSelected,  
                                                           'Statistics');  
     $Ptr .= '</td></tr>'."\n";      $Ptr .= '</td></tr>'."\n";
     $Ptr .= '<tr><td align="right"><b>Intervals</b></td>'."\n";      $Ptr .= '<tr><td align="right"><b>Intervals</b></td>'."\n";
     $Ptr .= '<td align="left">';      $Ptr .= '<td align="left">';
Line 66  sub BuildProblemAnalysisPage { Line 63  sub BuildProblemAnalysisPage {
     $Ptr .= '</td></tr></table><br>';      $Ptr .= '</td></tr></table><br>';
     $r->print($Ptr);      $r->print($Ptr);
     $r->rflush();      $r->rflush();
   #   $r->print($cache{'OptionResponses'}.'<br>');
     $r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache, $r));      $r->print(&OptionResponseTable($cache{'OptionResponses'}, \%cache, $r));
   
     untie(%cache);      untie(%cache);
Line 175  sub BuildAnalyzePage { Line 173  sub BuildAnalyzePage {
     $Str = '';      $Str = '';
     if($c->aborted()) {  untie(%cache); return; }      if($c->aborted()) {  untie(%cache); return; }
   
     &Apache::lonhtmlcommon::Create_PrgWin($r, $title, $heading);  
   
     my $count=0;      my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r, $title,
         $heading,$#students+1);
   
     #Java script Progress window      #Java script Progress window
     for(my $index=0; $index<(scalar @$students); $index++) {      for(my $index=0; $index<(scalar @$students); $index++) {
         if($c->aborted()) {  untie(%cache); return; }          if($c->aborted()) {  untie(%cache); return; }
         $count++;   &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
         my $displayString = $count.'/'.$studentCount.': '.$_;   'last student '.$students->[$index]);
         &Apache::lonhtmlcommon::Update_PrgWin($displayString, $r);  
  &OpStatus($problemId, $students->[$index], \%ConceptData,   &OpStatus($problemId, $students->[$index], \%ConceptData,
                   $analyzeData->{'foil_to_concept'}, $analyzeData,                    $analyzeData->{'foil_to_concept'}, $analyzeData,
   \%cache, $courseID);    \%cache, $courseID);
     }      }
     &Apache::lonhtmlcommon::Close_PrgWin($r);      &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
   
     $Str .= '<br>';      $Str .= '<br>';
     for (my $k=0; $k<$interval; $k++ ) {      for (my $k=0; $k<$interval; $k++ ) {
Line 435  sub DrawGraph { Line 433  sub DrawGraph {
     $GData  = $Titr.'&Concepts&Answers&'.$Max.'&'.$P_No.'&';      $GData  = $Titr.'&Concepts&Answers&'.$Max.'&'.$P_No.'&';
     $GData .= (join(',',@data1)).'&'.(join(',',@data2));      $GData .= (join(',',@data1)).'&'.(join(',',@data2));
   
     return '<IMG src="/cgi-bin/graph.gif?'.$GData.'" border=1/>';      return '<IMG src="/cgi-bin/graph.png?'.$GData.'" border=1/>';
 }  }
   
 sub DrawTable {  sub DrawTable {
Removed from v.1.16  
changed lines
  Added in v.1.20

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