loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.56, 2006/01/11 08:56:13	version 1.58, 2006/03/16 15:47:37
Line 78 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 116 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 140 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>');