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.15 and 1.16

version 1.15, 2001/11/28 13:57:48	version 1.16, 2001/11/28 16:36:08
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 116 sub ExtractStudentData {	Line 117 sub ExtractStudentData {
else {$Code = ' ';}	else {$Code = ' ';}
$TempHash{"$Part.Code"} = $Code;	$TempHash{"$Part.Code"} = $Code;
# if ($test=~/minaeibi/) {	# if ($test=~/minaeibi/) {
$r->print("$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}." $Val "."($Code)".'<br>');	# $r->print($Key." ,,, ".$Val."<br>$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}." $Val "."($Code)".'<br>');
# }	# }
}	}
}	}

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

Removed from v.1.15
changed lines
	Added in v.1.16