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.18

version 1.14, 2001/11/27 21:16:11	version 1.18, 2001/11/28 17:52:00
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;}
if ($Val eq 'correct_by_student'){$Code='*';}	#my $Val = $result{"$Version:$Prob:$Key"};
	my $Val = $result{"$Version:$Prob:resource.$Part.solved"};
	if ($Val eq 'correct_by_student'){
	$Code='*';
	$TempHash{$Part.'.Tries'}=$Tries;
	}
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 = '.';}
elsif ($Val eq 'incorrect_by_override'){$Code = '-';}	elsif ($Val eq 'incorrect_by_override'){$Code = '-';}
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 135 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.18