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.39, 2002/12/13 21:39:19
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' &&
Line 303 sub DrawGraph {	Line 304 sub DrawGraph {

# $r->print('</form>'."\n");	# $r->print('</form>'."\n");
$r->print('<br>'."\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" />');	(join('&', @GData)).'" border="1" />');
# $r->print('<form>'."\n");	# $r->print('<form>'."\n");
$r->print('<br>'."\n");	$r->print('<br>'."\n");