--- loncom/interface/statistics/lonproblemstatistics.pm 2002/08/06 17:38:26 1.16 +++ loncom/interface/statistics/lonproblemstatistics.pm 2002/08/12 18:21:42 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # (Publication Handler # -# $Id: lonproblemstatistics.pm,v 1.16 2002/08/06 17:38:26 minaeibi Exp $ +# $Id: lonproblemstatistics.pm,v 1.18 2002/08/12 18:21:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,7 +48,7 @@ sub BuildProblemStatisticsPage { my ($cacheDB, $students, $courseID, $c, $r)=@_; my %cache; - unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) { + unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { return 'Unable to tie database.'; } @@ -80,7 +80,7 @@ sub BuildProblemStatisticsPage { my $courseData = &Apache::loncoursedata::DownloadCourseInformation($_, $courseID); 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, $courseData, $_); untie(%cache); @@ -90,7 +90,7 @@ sub BuildProblemStatisticsPage { &Close_PrgWin($r); if($c->aborted()) { return; } - unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) { + unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { return 'Unable to tie database.'; } @@ -125,7 +125,7 @@ sub BuildProblemStatisticsPage { foreach (keys %$TempCache) { last if ($c->aborted()); - if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT,0640)) { + if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_WRCREAT(),0640)) { $cache{$_}=$TempCache->{$_}; untie(%cache); @@ -558,9 +558,10 @@ sub BuildStatisticsTable { #check with Gerd $urlres=~/^(\w+)\/(\w+)/; - if ($StdNo) { - &Apache::lonnet::put('resevaldata',\%storestats,$1,$2); - } + if ($StdNo) { + &Apache::lonnet::put('nohist_resevaldata',\%storestats, + $1,$2); + } #-------------------------------- Row of statistical table &TableRow($cache,$join,$cIdx,($p_count-1),$r,$color, \%TempCache); @@ -873,7 +874,7 @@ sub BuildGraphicChart { my $count = 0; my $Max = 0; - unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER,0640)) { + unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) { return 'Unable to tie database.'; }