loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonchart.pm between versions 1.14 and 1.17

version 1.14, 2001/11/27 21:16:11	version 1.17, 2001/11/28 17:16:16
Line 105 sub ExtractStudentData {	Line 105 sub ExtractStudentData {
foreach my $Key (@keys) {	foreach my $Key (@keys) {
if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {	if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {
my $Part = $1;	my $Part = $1;
$TempHash{"$Part.Tries"} = $result{"$Version:$Prob:resource.$Part.tries"};
$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='*';}	if ($Val eq 'correct_by_student'){$Code='*';}
elsif ($Val eq 'correct_by_override'){$Code = '+';}	elsif ($Val eq 'correct_by_override'){$Code = '+';}
elsif ($Val eq 'incorrect_attempted'){$Code = '.';}	elsif ($Val eq 'incorrect_attempted'){$Code = '.';}
Line 115 sub ExtractStudentData {	Line 116 sub ExtractStudentData {
elsif ($Val eq 'excused'){$Code = 'x';}	elsif ($Val eq 'excused'){$Code = 'x';}
else {$Code = ' ';}	else {$Code = ' ';}
$TempHash{"$Part.Code"} = $Code;	$TempHash{"$Part.Code"} = $Code;
if ($test eq $comp) {	# if ($test=~/minaeibi/) {
$r->print("$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>');
}	# }
}	}
}	}
}	}
Line 131 sub ExtractStudentData {	Line 132 sub ExtractStudentData {
}	}
}	}
$Str .= $TempHash{$part.'.Code'};	$Str .= $TempHash{$part.'.Code'};
	$r->print($n.") Part=".$part." code=$TempHash{$part.'.Code'}<br>");
}	}
}	}
else {for(my $n=0; $n<$PartNo; $n++) {$Str.=' ';}}	else {for(my $n=0; $n<$PartNo; $n++) {$Str.=' ';}}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.14
changed lines
	Added in v.1.17