--- loncom/interface/Attic/lonchart.pm	2001/11/28 18:29:53	1.21
+++ loncom/interface/Attic/lonchart.pm	2001/11/28 18:48:33	1.22
@@ -30,7 +30,6 @@ my %hash;
 my @cols;
 my @rowlabels;
 my @students;
-my $r;
 
 # ------------------------------------------------------------- Find out status
 
@@ -48,11 +47,7 @@ sub ExtractStudentData {
     my $Version;
     my $ProbNo;
     my $PrTotal;
-    my $LatestVersion;            
-
-    my $test = $ENV{'request.course.fn'};
-    my $comp = '/home/httpd/perl/tmp/minaeibi_msu_12679c3ed543a25msul1'; 
-               
+    my $LatestVersion;                     
     my $Str=substr($students[$index].
             '                                                        ',0,14).' ! '.
             substr($rowlabels[$index].
@@ -115,9 +110,6 @@ sub ExtractStudentData {
 			    elsif ($Val eq 'excused'){$Code = 'x';}
 			    else {$Code = ' ';}
 			    $TempHash{"$Part.Code"} = $Code;
-#            if ($test=~/*minaeibi*/) {
-#		$r->print($Key."  PartNo =$PartNo "." Tries=$Tries!<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}."  $Val "."($Code)".'<br>');
-#	    }
 			}
       		    }
                 } 
@@ -131,7 +123,6 @@ sub ExtractStudentData {
 			}
                     }
 		    $Str .= $TempHash{"$part.Code"};
-#		    $r->print($n.") Part=".$part."  code=$TempHash{$part.'.Code'}<br>");
 		}
             }   
 	    else {for(my $n=0; $n<$PartNo; $n++) {$Str.=' ';}}
@@ -190,7 +181,7 @@ sub tracetable {
 # ================================================================ Main Handler
 
 sub handler {
-  $r=shift;
+  my $r=shift;
 
   if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
 # ------------------------------------------- Set document type for header only