--- loncom/interface/Attic/lonchart.pm	2001/11/28 17:16:16	1.17
+++ loncom/interface/Attic/lonchart.pm	2001/11/28 17:52:00	1.18
@@ -106,10 +106,13 @@ sub ExtractStudentData {
 			if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {
 			    my $Part = $1;
 			    $Tries = $result{"$Version:$Prob:resource.$Part.tries"};
-			    if ($Tries) {$TempHash{"$Part.Tries"}=$Tries;}
+			    #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='*';} 
+			    if ($Val eq 'correct_by_student'){
+                                $Code='*';
+                                $TempHash{$Part.'.Tries'}=$Tries;
+                            } 
 			    elsif ($Val eq 'correct_by_override'){$Code = '+';}                        
 			    elsif ($Val eq 'incorrect_attempted'){$Code = '.';} 
 			    elsif ($Val eq 'incorrect_by_override'){$Code = '-';}
@@ -117,7 +120,7 @@ sub ExtractStudentData {
 			    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>');
+		$r->print($Key."  PartNo =$PartNo "." Tries=$Tries!<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}."  $Val "."($Code)".'<br>');
 #	    }
 			}
       		    }