--- loncom/interface/loncommon.pm 2003/10/15 21:12:24 1.129
+++ loncom/interface/loncommon.pm 2003/10/17 15:13:49 1.132
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.129 2003/10/15 21:12:24 matthew Exp $
+# $Id: loncommon.pm,v 1.132 2003/10/17 15:13:49 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2697,7 +2697,8 @@ sub DrawGraph {
my $NumSets=1;
foreach my $array (@Values) {
next if (! ref($array));
- $ValuesHash{$identifier.'.data.'.$NumSets++} = join(',',@$array);
+ $ValuesHash{'cgi.'.$identifier.'.data.'.$NumSets++} =
+ join(',',@$array);
}
#
$Title = '' if (! defined($Title));
@@ -2713,15 +2714,15 @@ sub DrawGraph {
$Max = int($Max);
}
#
- &Apache::lonnet::appenv($identifier.'.title' => $Title,
- $identifier.'.xlabel' => $xlabel,
- $identifier.'.ylabel' => $ylabel,
- $identifier.'.Max' => $Max,
- $identifier.'.NumBars' => $NumBars,
- $identifier.'.NumSets' => $NumSets,
- $identifier.'.Colors' => join(',',@{$colors}),
+ &Apache::lonnet::appenv('cgi.'.$identifier.'.title' => $Title,
+ 'cgi.'.$identifier.'.xlabel' => $xlabel,
+ 'cgi.'.$identifier.'.ylabel' => $ylabel,
+ 'cgi.'.$identifier.'.Max' => $Max,
+ 'cgi.'.$identifier.'.NumBars' => $NumBars,
+ 'cgi.'.$identifier.'.NumSets' => $NumSets,
+ 'cgi.'.$identifier.'.Colors' => join(',',@{$colors}),
%ValuesHash);
- return '';
+ return '';
}
############################################################