--- loncom/interface/statistics/lonproblemstatistics.pm 2002/11/12 19:52:46 1.36
+++ 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.36 2002/11/12 19:52:46 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' &&
@@ -299,13 +300,11 @@ sub DrawGraph {
#(10 - $Max % 10);
} else { $Max = 1; }
-# my @GData = ($courseDescription, 'Problem_number',
-# $title, $Max, $sendCount, $sendValues);
my @GData = ('','Problem_number',$title,$Max,$sendCount,$sendValues);
# $r->print(''."\n");
$r->print('
'."\n");
- $r->print('');
# $r->print('