loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.146, 2009/12/27 19:40:42	version 1.147, 2010/01/06 16:59:30
Line 326 sub caparesponse_check_list {	Line 326 sub caparesponse_check_list {
$element =~ s/\s//g;	$element =~ s/\s//g;
}	}
my $appendunit=$unit;	my $appendunit=$unit;
	# Deal with percentages
	# unit is unit entered by student, answerunit is unit by author
	# Deprecated: divide answer by 100 if student entered percent,
	# but author did not. Too much confusion
# if (($unit=~/\%/) && ($answerunit ne '%')) {	# if (($unit=~/\%/) && ($answerunit ne '%')) {
# $element=$element/100;	# $element=$element/100;
# $appendunit=~s/\%//;	# $appendunit=~s/\%//;
# }	# }
	# Author entered percent, student did not
	if (($unit!~/\%/) && ($answerunit=~/\%/)) {
	$element=$element*100;
	$appendunit='%'.$appendunit;
	}
	# Zero does not need a dimension
if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) {	if (($element==0) && ($unit!~/\w/) && ($answerunit=~/\w/)) {
$appendunit=$answerunit;	$appendunit=$answerunit;
}	}