loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.99, 2005/04/01 13:58:25	version 1.100, 2005/06/17 20:24:56
Line 89 sub caparesponse_check {	Line 89 sub caparesponse_check {
} else {	} else {
$message .="no ws in :$response:\n";	$message .="no ws in :$response:\n";
}	}
if ($type eq 'cs' \|\| $type eq 'ci' \|\| $type eq 'mc') {	&LONCAPA_INTERNAL_DEBUG(" type is $type ");
	if ($type eq 'cs' \|\| $type eq 'ci') {
#for string answers make surec all places spaces occur, there is	#for string answers make surec all places spaces occur, there is
#really only 1 space, in both the answer and the response	#really only 1 space, in both the answer and the response
$answer=~s/ +/ /g;	$answer=~s/ +/ /g;
$response=~s/ +/ /g;	$response=~s/ +/ /g;
	} elsif ($type eq 'mc') {
	$answer=~s/[\s,]//g;
	$response=~s/[\s,]//g;
}	}
if ($type eq 'float' && $unit=~/\$/) {	if ($type eq 'float' && $unit=~/\$/) {
if ($response!~/^\$/) { return "NO_UNIT: Missing \$ "; }	if ($response!~/^\$/) { return "NO_UNIT: Missing \$ "; }