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.17 and 1.18

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

version 1.17, 2001/11/28 17:16:16	version 1.18, 2001/11/28 17:52:00
Line 106 sub ExtractStudentData {	Line 106 sub ExtractStudentData {
if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {	if (($Key=~/\.(\w+)\.solved$/) && ($Key!~/^\d+\:/)) {
my $Part = $1;	my $Part = $1;
$Tries = $result{"$Version:$Prob:resource.$Part.tries"};	$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:$Key"};
my $Val = $result{"$Version:$Prob:resource.$Part.solved"};	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 '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 = '-';}
Line 117 sub ExtractStudentData {	Line 120 sub ExtractStudentData {
else {$Code = ' ';}	else {$Code = ' ';}
$TempHash{"$Part.Code"} = $Code;	$TempHash{"$Part.Code"} = $Code;
# if ($test=~/minaeibi/) {	# 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>');
# }	# }
}	}
}	}

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