loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.137, 2008/06/14 16:34:54	version 1.138, 2008/09/06 21:39:15
Line 316 sub caparesponse_check_list {	Line 316 sub caparesponse_check_list {
$unit=~s/\s//;	$unit=~s/\s//;
foreach my $response (@$responses) {	foreach my $response (@$responses) {
foreach my $element (@$response) {	foreach my $element (@$response) {
$element =~ s/\s//g;	if (($type eq 'float') \|\| (($type eq '') && ($unit ne ''))) {
	$element =~ s/\s//g;
	}
my $appendunit=$unit;	my $appendunit=$unit;
if ($unit=~/\%/) {	if ($unit=~/\%/) {
$element=$element/100;	$element=$element/100;