loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.136, 2008/06/12 00:46:52	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;
Line 424 sub caparesponse_check_list {	Line 426 sub caparesponse_check_list {
}	}

sub cas {	sub cas {
my ($system,$input)=@_;	my ($system,$input,$library)=@_;
my $output;	my $output;
if ($system eq 'maxima') {	if ($system eq 'maxima') {
$output=&maxima_eval($input);	$output=&maxima_eval($input,$library);
	} else {
	$output='Error: unrecognized CAS';
}	}
return $output;	return $output;
}	}