--- loncom/interface/Attic/lonchart.pm	2001/11/28 17:52:00	1.18
+++ loncom/interface/Attic/lonchart.pm	2001/11/28 18:15:14	1.19
@@ -106,13 +106,9 @@ sub ExtractStudentData {
 			if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {
 			    my $Part = $1;
 			    $Tries = $result{"$Version:$Prob:resource.$Part.tries"};
-			    #if ($Tries) {$TempHash{"$Part.Tries"}=$Tries;}
-			    #my $Val = $result{"$Version:$Prob:$Key"};
+			    $TempHash{"$Part.Tries"}=($Tries) ? $Tries : 0;
 			    my $Val = $result{"$Version:$Prob:resource.$Part.solved"};
-			    if ($Val eq 'correct_by_student'){
-                                $Code='*';
-                                $TempHash{$Part.'.Tries'}=$Tries;
-                            } 
+			    if ($Val eq 'correct_by_student'){$Code='*';} 
 			    elsif ($Val eq 'correct_by_override'){$Code = '+';}                        
 			    elsif ($Val eq 'incorrect_attempted'){$Code = '.';} 
 			    elsif ($Val eq 'incorrect_by_override'){$Code = '-';}
@@ -128,13 +124,14 @@ sub ExtractStudentData {
 
 		for ( my $n = 0; $n < $PartNo; $n++ ) {		  
 		    my $part = $TempHash{$n};
-                    if ($TempHash{$part.'.Code'} eq '*') {
+                    if ($TempHash{"$part.Code"} eq '*') {
 			$ProbNo++;
-                        if ($TempHash{$part.'.Tries'}<10) {
-			    $TempHash{$part.'.Code'}=$Tries;
+                        if (($TempHash{"$part.Tries"}<10) ||
+                            ($TempHash{"$part.Tries"} eq '' ) {
+			    $TempHash{"$part.Code"}=$TempHash{"$part.Tries"};
 			}
                     }
-		    $Str .= $TempHash{$part.'.Code'};
+		    $Str .= $TempHash{"$part.Code"};
 		    $r->print($n.") Part=".$part."  code=$TempHash{$part.'.Code'}<br>");
 		}
             }