loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.133, 2003/10/23 21:01:54	version 1.134, 2003/10/24 13:35:37
Line 2677 sub check_if_partid_hidden {	Line 2677 sub check_if_partid_hidden {

=pod	=pod

=item DrawGraph	=item DrawBarGraph

Returns a link to cgi-bin/graph

=cut	=cut

############################################################	############################################################
############################################################	############################################################
sub DrawGraph {	sub DrawBarGraph {
my ($Title,$xlabel,$ylabel,$Max,$colors,@Values)=@_;	my ($Title,$xlabel,$ylabel,$Max,$colors,@Values)=@_;
#	#
	if (! defined($colors)) {
	$colors = ['#33ff00',
	'#0033cc', '#990000', '#aaaa66', '#663399', '#ff9933',
	'#66ccff', '#ff9999', '#cccc33', '#660000', '#33cc66',
	];
	}
	#
my $identifier = time.'_'.int(rand(1000));	my $identifier = time.'_'.int(rand(1000));
if (! @Values \|\| ref($Values[0]) ne 'ARRAY') {	if (! @Values \|\| ref($Values[0]) ne 'ARRAY') {
return '';	return '';