[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.15 and 1.18

version 1.15, 2002/11/25 18:12:52 version 1.18, 2002/12/13 21:39:19
Line 66  sub BuildProblemAnalysisPage { Line 66  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 117  sub BuildAnalyzePage { Line 118  sub BuildAnalyzePage {
         $r->print('Can not untie hash.');          $r->print('Can not untie hash.');
         $r->rflush();          $r->rflush();
     }      }
     #if($status eq 'true')  
     { &Apache::lonhtmlcommon::Close_PrgWin($r); }  
   
       &Apache::lonhtmlcommon::Close_PrgWin($r);
   
   ### jason code for checing is there data in cache
 #    my $error =  #    my $error =
 #        &Apache::loncoursedata::DownloadStudentCourseDataSeparate($students,  #        &Apache::loncoursedata::DownloadStudentCourseDataSeparate($students,
 #                                                                  'true',  #                                                                  'true',
Line 134  sub BuildAnalyzePage { Line 135  sub BuildAnalyzePage {
 #        return;  #        return;
 #    }  #    }
   
   
     unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
         $Str .= 'Unable to tie database.';          $Str .= 'Unable to tie database.';
         $r->print($Str);          $r->print($Str);
Line 146  sub BuildAnalyzePage { Line 146  sub BuildAnalyzePage {
     my $problem  = $cache{$problemId.':problem'};      my $problem  = $cache{$problemId.':problem'};
     my $title    = $cache{$problemId.':title'};      my $title    = $cache{$problemId.':title'};
     my $interval = $cache{'Interval'};      my $interval = $cache{'Interval'};
   
 #    my $title = 'LON-CAPA Statistics';  
     my $heading = 'Restore this particular Option Response Problem '.      my $heading = 'Restore this particular Option Response Problem '.
                   'Results, Please wait...';                    'Results, Please wait...';
   
Line 438  sub DrawGraph { Line 436  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.15  
changed lines
  Added in v.1.18

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