loncom/interface/lonchart.pm - diff

Return to lonchart.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2001/11/27 21:16:11	version 1.15, 2001/11/28 13:57:48
Line 115 sub ExtractStudentData {	Line 115 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("$Version:$Prob:resource.$Part.tries".' = '.$result{"$Version:$Prob:resource.$Part.tries"}." $Val "."($Code)".'<br>');
}	# }
}	}
}	}
}	}