[LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemstatistics.pm

[albertel]

albertel		Fri Dec  6 16:56:22 2002 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemstatistics.pm 
  Log:
  
  - Fixes  BUG#1033 was getting 'Unable to tie database.2' on stats screens
  
  
  
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.37 loncom/interface/statistics/lonproblemstatistics.pm:1.38
--- loncom/interface/statistics/lonproblemstatistics.pm:1.37	Tue Nov 26 11:59:03 2002
+++ loncom/interface/statistics/lonproblemstatistics.pm	Fri Dec  6 16:56:22 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonproblemstatistics.pm,v 1.37 2002/11/26 16:59:03 minaeibi Exp $
+# $Id: lonproblemstatistics.pm,v 1.38 2002/12/06 21:56:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -222,9 +222,6 @@
     my ($graph,$cacheDB,$courseDescription,$students,$courseID,$r,$c)=@_;
     my %cache;
     my $max;
-    unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
-        return 'Unable to tie database.7';
-    }
 
     my $title = '';
     if($graph eq 'DoDiffGraph') {
@@ -243,6 +240,10 @@
     }
 
     my @values = ();
+
+    unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
+        return 'Unable to tie database.7';
+    }
 
     foreach(@$orderedProblems) {
         my ($sequence,$problem,$part)=split(':', $_);