--- loncom/interface/Attic/lonchart.pm	2001/11/27 21:16:11	1.14
+++ loncom/interface/Attic/lonchart.pm	2001/11/28 16:36:08	1.16
@@ -105,9 +105,10 @@ sub ExtractStudentData {
 		    foreach my $Key (@keys) {		  
 			if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {
 			    my $Part = $1;
-			    $TempHash{"$Part.Tries"} = $result{"$Version:$Prob:resource.$Part.tries"};
 			    $Tries = $result{"$Version:$Prob:resource.$Part.tries"};
-			    my $Val = $result{"$Version:$Prob:$Key"};
+			    if ($Tries) {$TempHash{"$Part.Tries"}=$Tries;}
+			    #my $Val = $result{"$Version:$Prob:$Key"};
+			    my $Val = $result{"$Version:$Prob:resource.$Part.solved"};
 			    if ($Val eq 'correct_by_student'){$Code='*';} 
 			    elsif ($Val eq 'correct_by_override'){$Code = '+';}                        
 			    elsif ($Val eq 'incorrect_attempted'){$Code = '.';} 
@@ -115,9 +116,9 @@ sub ExtractStudentData {
 			    elsif ($Val eq 'excused'){$Code = 'x';}
 			    else {$Code = ' ';}
 			    $TempHash{"$Part.Code"} = $Code;
-            if ($test eq $comp) {
-		$r->print("$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}."  $Val "."($Code)".'<br>');
-	    }
+#            if ($test=~/*minaeibi*/) {
+#		$r->print($Key." ,,, ".$Val."<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}."  $Val "."($Code)".'<br>');
+#	    }
 			}
       		    }
                 }