loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.37, 2002/11/26 16:59:03	version 1.38, 2002/12/06 21:56:22
Line 222 sub BuildGraphicChart {	Line 222 sub BuildGraphicChart {
my ($graph,$cacheDB,$courseDescription,$students,$courseID,$r,$c)=@_;	my ($graph,$cacheDB,$courseDescription,$students,$courseID,$r,$c)=@_;
my %cache;	my %cache;
my $max;	my $max;
unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
return 'Unable to tie database.7';
}

my $title = '';	my $title = '';
if($graph eq 'DoDiffGraph') {	if($graph eq 'DoDiffGraph') {
Line 244 sub BuildGraphicChart {	Line 241 sub BuildGraphicChart {

my @values = ();	my @values = ();

	unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
	return 'Unable to tie database.7';
	}

foreach(@$orderedProblems) {	foreach(@$orderedProblems) {
my ($sequence,$problem,$part)=split(':', $_);	my ($sequence,$problem,$part)=split(':', $_);
if($cache{'StatisticsMaps'} ne 'All Maps' &&	if($cache{'StatisticsMaps'} ne 'All Maps' &&