loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.142, 2008/11/26 18:11:52	version 1.144, 2009/04/17 01:00:15
Line 220 sub caparesponse_check {	Line 220 sub caparesponse_check {
if (($type eq '9') \|\| ($type eq '8')) {	if (($type eq '9') \|\| ($type eq '8')) {
if ($response=~/\=/) {	if ($response=~/\=/) {
return ('BAD_FORMULA','Please submit just an expression, not an equation.');	return ('BAD_FORMULA','Please submit just an expression, not an equation.');
} elsif ($response =~ /\,/) {	} elsif ($response =~ /\,/ and $response !~ /^\s\{.\}\s*$/) {
return ('BAD_FORMULA');	return ('BAD_FORMULA');
}	}
}	}
Line 436 sub cas {	Line 436 sub cas {
my $output;	my $output;
if ($system eq 'maxima') {	if ($system eq 'maxima') {
$output=&maxima_eval($input,$library);	$output=&maxima_eval($input,$library);
	} elsif ($system eq 'R') {
	$output=&r_eval($input,$library);
} else {	} else {
$output='Error: unrecognized CAS';	$output='Error: unrecognized CAS';
}	}