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

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.16 and 1.18

version 1.16, 2002/08/06 17:38:26 version 1.18, 2002/08/12 18:21:42
Line 48  sub BuildProblemStatisticsPage { Line 48  sub BuildProblemStatisticsPage {
     my ($cacheDB, $students, $courseID, $c, $r)=@_;      my ($cacheDB, $students, $courseID, $c, $r)=@_;
     my %cache;      my %cache;
   
     unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
         return '<html><body>Unable to tie database.</body></html>';          return '<html><body>Unable to tie database.</body></html>';
     }      }
   
Line 80  sub BuildProblemStatisticsPage { Line 80  sub BuildProblemStatisticsPage {
         my $courseData =           my $courseData = 
             &Apache::loncoursedata::DownloadCourseInformation($_, $courseID);              &Apache::loncoursedata::DownloadCourseInformation($_, $courseID);
         last if ($c->aborted());          last if ($c->aborted());
         if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT,0640)) {          if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) {
             &Apache::loncoursedata::ProcessStudentData(\%cache,               &Apache::loncoursedata::ProcessStudentData(\%cache, 
                                                        $courseData, $_);                                                         $courseData, $_);
             untie(%cache);              untie(%cache);
Line 90  sub BuildProblemStatisticsPage { Line 90  sub BuildProblemStatisticsPage {
     &Close_PrgWin($r);      &Close_PrgWin($r);
     if($c->aborted()) { return; }      if($c->aborted()) { return; }
   
     unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
         return '<html><body>Unable to tie database.</body></html>';          return '<html><body>Unable to tie database.</body></html>';
     }      }
   
Line 125  sub BuildProblemStatisticsPage { Line 125  sub BuildProblemStatisticsPage {
   
     foreach (keys %$TempCache) {      foreach (keys %$TempCache) {
         last if ($c->aborted());          last if ($c->aborted());
         if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT,0640)) {          if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) {
     $cache{$_}=$TempCache->{$_};      $cache{$_}=$TempCache->{$_};
   
             untie(%cache);              untie(%cache);
Line 558  sub BuildStatisticsTable { Line 558  sub BuildStatisticsTable {
   
 #check with Gerd  #check with Gerd
     $urlres=~/^(\w+)\/(\w+)/;      $urlres=~/^(\w+)\/(\w+)/;
     if ($StdNo) {       if ($StdNo) {
  &Apache::lonnet::put('resevaldata',\%storestats,$1,$2);    &Apache::lonnet::put('nohist_resevaldata',\%storestats,
     }       $1,$2);
       }
 #-------------------------------- Row of statistical table  #-------------------------------- Row of statistical table
             &TableRow($cache,$join,$cIdx,($p_count-1),$r,$color,              &TableRow($cache,$join,$cIdx,($p_count-1),$r,$color,
                       \%TempCache);                        \%TempCache);
Line 873  sub BuildGraphicChart { Line 874  sub BuildGraphicChart {
     my $count = 0;      my $count = 0;
     my $Max = 0;      my $Max = 0;
   
     unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) {      unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
         return '<html><body>Unable to tie database.</body></html>';          return '<html><body>Unable to tie database.</body></html>';
     }      }
         
Removed from v.1.16  
changed lines
  Added in v.1.18

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