--- loncom/interface/Attic/lonchart.pm	2001/10/19 22:03:05	1.8
+++ loncom/interface/Attic/lonchart.pm	2001/10/22 14:52:14	1.9
@@ -82,7 +82,8 @@ sub ExtractStudentData {
 			    my $Part = $1;
 			    if ( $TempHash{"$Part"} eq '' ) { 
 				$TempHash{"$Part"} = $Part;
-				$TempHash{$PartNo}=$Part;  
+				$TempHash{$PartNo}=$Part;
+				$TempHash{"$Part.Code"} = ' ';  
 				$PartNo++;
 			    }
 			    $TempHash{"$Part.Tries"} = $result{"$Version:$Prob:resource.$Part.tries"};