--- loncom/interface/Attic/lonchart.pm	2001/11/28 16:36:08	1.16
+++ loncom/interface/Attic/lonchart.pm	2001/11/28 17:16:16	1.17
@@ -117,7 +117,7 @@ sub ExtractStudentData {
 			    else {$Code = ' ';}
 			    $TempHash{"$Part.Code"} = $Code;
 #            if ($test=~/*minaeibi*/) {
-#		$r->print($Key." ,,, ".$Val."<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}."  $Val "."($Code)".'<br>');
+		$r->print($Key."PartNo =$PartNo "."Tries=$Tries!<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}."  $Val "."($Code)".'<br>');
 #	    }
 			}
       		    }
@@ -132,6 +132,7 @@ 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.=' ';}}