--- loncom/interface/Attic/lonchart.pm	2001/12/06 21:57:23	1.23
+++ loncom/interface/Attic/lonchart.pm	2001/12/18 20:06:05	1.24
@@ -16,6 +16,7 @@
 # 9/8 Gerd Kortemeyer
 # 10/18/01, 10/19/01 Behrouz Minaei
 # 11/17/01, 11/22/01, 11/24/01, 11/28/01 Behrouz Minaei
+# 12/18/01 Behrouz Minaei
 
 package Apache::lonchart;
 
@@ -182,6 +183,12 @@ sub tracetable {
 # ================================================================ Main Handler
 
 sub handler {
+
+  undef %hash;
+  undef @students;
+  undef @cols;
+  undef @rowlabels;
+
   my $r=shift;
 
   if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
@@ -251,9 +258,6 @@ sub handler {
 
 # ---------------------------------------------- Read class list and row labels
 
-    undef @rowlabels;
-    undef @students;
-
     my $classlst=&Apache::lonnet::reply
                                  ('dump:'.$cdom.':'.$cnum.':classlist',$chome);
     my $now=time;