loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.126, 2008/03/05 15:31:57	version 1.129, 2008/03/05 18:24:07
Line 310 sub caparesponse_check_list {	Line 310 sub caparesponse_check_list {
my $unit;	my $unit;
if ($type eq '' \|\| $type eq 'float') {	if ($type eq '' \|\| $type eq 'float') {
#for numerical problems split off the unit	#for numerical problems split off the unit
if ( $responses->[0][-1]=~ /(.*[^\s])\s+([^\s]+)/ ) {	# if ( $responses->[0][-1]=~ /(.*[^\s])\s+([^\s]+)/ ) {
	if ( $responses->[0][-1]=~ /^([\d\.\,\s\$](?:(?:[xX\]10[\^\]\|[eE])[\+\-]\d)(?:^\|\S)\d)([\w\s][\$\s\w\^\\/\+\-]\D[\$\s\w\^\\/\+\-])$/ ) {
$responses->[0][-1]=$1;	$responses->[0][-1]=$1;
$unit=$2;	$unit=&capa_formula_fix($2);
	&LONCAPA_INTERNAL_DEBUG("Found unit :$unit:");
}	}
}	}
&LONCAPA_INTERNAL_DEBUG("Final final response :$responses->[0][-1]:$unit:");	&LONCAPA_INTERNAL_DEBUG("Final final response :$responses->[0][-1]:$unit:");
$unit=~s/\s//;	$unit=~s/\s//;
if ($unit ne '') {	if ($unit ne '') {
foreach my $response (@$responses) {	foreach my $response (@$responses) {
foreach my $element (@$response) {	foreach my $element (@$response) {
	$element =~ s/\s//g;
$element .= " $unit";	$element .= " $unit";
}	}
}	}