version 1.126, 2003/10/05 00:44:44
|
version 1.127, 2003/10/09 22:07:08
|
Line 2659 sub check_if_partid_hidden {
|
Line 2659 sub check_if_partid_hidden {
|
return undef; |
return undef; |
} |
} |
|
|
|
############################################################ |
|
############################################################ |
|
|
|
=pod |
|
|
|
=item DrawGraph |
|
|
|
Returns a link to cgi-bin/graph |
|
|
|
=cut |
|
|
|
############################################################ |
|
############################################################ |
|
sub DrawGraph { |
|
my ($Title,$xlabel,$ylabel,$Max,$values1,$values2)=@_; |
|
# |
|
my $identifier = time.'_'.int(rand(1000)); |
|
if (! defined($values1) || ref($values1) ne 'ARRAY') { |
|
return ''; |
|
} |
|
# |
|
$Title = '' if (! defined($Title)); |
|
$xlabel = '' if (! defined($xlabel)); |
|
$ylabel = '' if (! defined($ylabel)); |
|
$Title = &Apache::lonnet::escape($Title); |
|
$xlabel = &Apache::lonnet::escape($xlabel); |
|
$ylabel = &Apache::lonnet::escape($ylabel); |
|
# |
|
my $data1 = join(',', @$values1); |
|
my $data2; |
|
if (defined($values2)) { |
|
$data2 = join(',', @$values2); |
|
} |
|
# |
|
my $NumBars = scalar(@$values1); |
|
$Max = 1 if ($Max < 1); |
|
if ( int($Max) < $Max ) { |
|
$Max++; |
|
$Max = int($Max); |
|
} |
|
# |
|
&Apache::lonnet::appenv($identifier.'.title' => $Title, |
|
$identifier.'.xlabel' => $xlabel, |
|
$identifier.'.ylabel' => $ylabel, |
|
$identifier.'.Max' => $Max, |
|
$identifier.'.NumBars' => $NumBars, |
|
$identifier.'.data1' => $data1, |
|
$identifier.'.data2' => $data2); |
|
return '<IMG src="/cgi-bin/graph.png?'.$identifier.'" border="1" />'; |
|
} |
|
|
|
############################################################ |
|
############################################################ |
|
|
=pod |
=pod |
|
|
=back |
=back |