--- loncom/interface/Attic/lonchart.pm	2001/10/18 14:25:49	1.7
+++ loncom/interface/Attic/lonchart.pm	2001/10/22 14:52:14	1.9
@@ -17,7 +17,7 @@
 #
 # 7/10/01 Behrouz Minaei
 # 9/8 Gerd Kortemeyer
-# 10/18/01 Behrouz Minaei
+# 10/18/01, 10/19/01 Behrouz Minaei
 
 package Apache::lonchart;
 
@@ -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"};
@@ -107,6 +108,7 @@ sub ExtractStudentData {
 		    $Str .= $TempHash{$part.'.Code'}; 
 		}
             }   
+	    else { $Str .= ' '; }
         } 
     }
     return $Str;