--- loncom/interface/statistics/lonproblemstatistics.pm 2002/08/09 19:49:30 1.17 +++ 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.17 2002/08/09 19:49:30 albertel 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); @@ -874,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.'; }