loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.35, 2003/04/03 14:35:59	version 1.37, 2003/06/09 21:37:54
Line 38 ENDEVALUATE	Line 38 ENDEVALUATE

sub evaluate {	sub evaluate {
my ($expression,$safeeval,$decls) = @_;	my ($expression,$safeeval,$decls) = @_;
	&Apache::lonxml::debug("got $expression and decls $decls");
unless (defined($expression)) { return ''; }	unless (defined($expression)) { return ''; }
if ($Apache::lonxml::evaluate < 1) { return $expression; }	if ($Apache::lonxml::evaluate < 1) { return $expression; }
my $result = '';	my $result = '';
Line 93 sub run {	Line 94 sub run {
alarm(0);	alarm(0);
};	};
my $error=$@;	my $error=$@;
&Apache::lonxml::debug("run got $@");
if (($Apache::run::timeout \|\| $error ne '' \|\| $innererror ne '') && !$hideerrors) {	if (($Apache::run::timeout \|\| $error ne '' \|\| $innererror ne '') && !$hideerrors) {
if ($Apache::run::timeout) {	if ($Apache::run::timeout) {
$error = 'Code ran too long. It ran for more than '.	$error = 'Code ran too long. It ran for more than '.