--- loncom/interface/statistics/lonproblemstatistics.pm	2002/11/26 16:59:03	1.37
+++ loncom/interface/statistics/lonproblemstatistics.pm	2002/12/13 21:39:19	1.39
@@ -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.39 2002/12/13 21:39:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -222,9 +222,6 @@ sub BuildGraphicChart {
     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') {
@@ -244,6 +241,10 @@ sub BuildGraphicChart {
 
     my @values = ();
 
+    unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
+        return 'Unable to tie database.7';
+    }
+
     foreach(@$orderedProblems) {
         my ($sequence,$problem,$part)=split(':', $_);
         if($cache{'StatisticsMaps'} ne 'All Maps'  &&
@@ -303,7 +304,7 @@ sub DrawGraph {
 
 #    $r->print('</form>'."\n");
     $r->print('<br>'."\n");
-    $r->print('<IMG src="/cgi-bin/graph.gif?'.
+    $r->print('<IMG src="/cgi-bin/graph.png?'.
               (join('&', @GData)).'" border="1" />');
 #    $r->print('<form>'."\n");
     $r->print('<br>'."\n");