loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.130, 2003/10/16 19:59:00	version 1.131, 2003/10/16 20:03:31
Line 2713 sub DrawGraph {	Line 2713 sub DrawGraph {
$Max = int($Max);	$Max = int($Max);
}	}
#	#
&Apache::lonnet::appenv($identifier.'.title' => $Title,	&Apache::lonnet::appenv('cgi.'.$identifier.'.title' => $Title,
$identifier.'.xlabel' => $xlabel,	'cgi.'.$identifier.'.xlabel' => $xlabel,
$identifier.'.ylabel' => $ylabel,	'cgi.'.$identifier.'.ylabel' => $ylabel,
$identifier.'.Max' => $Max,	'cgi.'.$identifier.'.Max' => $Max,
$identifier.'.NumBars' => $NumBars,	'cgi.'.$identifier.'.NumBars' => $NumBars,
$identifier.'.NumSets' => $NumSets,	'cgi.'.$identifier.'.NumSets' => $NumSets,
$identifier.'.Colors' => join(',',@{$colors}),	'cgi.'.$identifier.'.Colors' => join(',',@{$colors}),
%ValuesHash);	%ValuesHash);
return '<img src="/cgi-bin/graph.png?'.$identifier.'" border="1" />';	return '<img src="/cgi-bin/graph.png?'.$identifier.'" border="1" />';
}	}