loncom/homework/lonmaxima.pm - diff

Return to lonmaxima.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.28, 2008/12/10 23:28:04	version 1.30, 2012/02/17 15:31:04
Line 51 sub maximareply {	Line 51 sub maximareply {
print $socket &escape($cmd)."\n";	print $socket &escape($cmd)."\n";
my $reply=<$socket>;	my $reply=<$socket>;
chomp($reply);	chomp($reply);
if ($reply=~/^Incorrect/) { $reply='Error: '.$reply; }	if ($reply=~/^Incorrect/i) { $reply='Error: '.$reply; }
return &unescape($reply);	return &unescape($reply);
} else {	} else {
return 'Error: no connection.';	return 'Error: no connection.';
Line 117 sub runscript {	Line 117 sub runscript {

sub maxima_cas_formula_fix {	sub maxima_cas_formula_fix {
my ($expression)=@_;	my ($expression)=@_;
return &Apache::response::implicit_multiplication($expression);	$expression=&Apache::response::implicit_multiplication($expression);
	$expression=~s/([^\w\%])pi/$1\%pi/gs;
	return $expression;
}	}

sub maxima_run {	sub maxima_run {