loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.54, 2005/11/15 20:50:26	version 1.58, 2006/03/16 15:47:37
Line 50 while (!$_LONCAPA_INTERNAL_oldexpression	Line 50 while (!$_LONCAPA_INTERNAL_oldexpression
my $__LC__prefix;	my $__LC__prefix;
my $__LC__result;	my $__LC__result;
while (1) {	while (1) {
	if ($__LC__a =~ m-^&(theta\|pi\|rho)$-) { last; }
{	{
use strict;	use strict;
no strict "vars";	no strict "vars";
Line 77 sub evaluate {	Line 78 sub evaluate {
my $result = '';	my $result = '';
$@='';	$@='';
$Apache::run::timeout=0;	$Apache::run::timeout=0;
$main::SIG{'ALRM'} = sub {	local $main::SIG{'ALRM'} = sub {
$Apache::run::timeout=1;	$Apache::run::timeout=1;
die("timeout");	die("timeout");
};	};
Line 115 sub run {	Line 116 sub run {
my @result;	my @result;
$@='';	$@='';
$Apache::run::timeout=0;	$Apache::run::timeout=0;
$main::SIG{'ALRM'} = sub {	local $main::SIG{'ALRM'} = sub {
$Apache::run::timeout=1;	$Apache::run::timeout=1;
die("timeout");	die("timeout");
};	};
Line 139 sub run {	Line 140 sub run {
if ($innererror=~/line (\d+)/) {	if ($innererror=~/line (\d+)/) {
my $linenumber=$1;	my $linenumber=$1;
my @code=split("\n",$code);	my @code=split("\n",$code);
$code[$linenumber-1]='<b><font color="red">'.	if ($linenumber < scalar(@code)) {
$code[$linenumber-1].'</font></b>';	$code[$linenumber-1]='<b><font color="red">'.
	$code[$linenumber-1].'</font></b>';
	}
$code=join("\n",@code);	$code=join("\n",@code);
}	}
&Apache::lonxml::error($errormsg.$code.'</pre>');	&Apache::lonxml::error($errormsg.$code.'</pre>');