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" />'; |
} |
} |