loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.22, 2001/12/11 15:48:51	version 1.23, 2002/02/15 21:33:12
Line 39 sub evaluateold {	Line 39 sub evaluateold {
if ($@ eq '') {	if ($@ eq '') {
$result = $safeeval->reval('return $_;');	$result = $safeeval->reval('return $_;');
} else {	} else {
&Apache::lonxml::error("substitution on:$expression:with:$decls:caused");	&Apache::lonxml::error("substitution on:$expression:with:$decls:caused:$@:");
}	}
} else {	} else {
&Apache::lonxml::error("defining:$expression:caused");	&Apache::lonxml::error("defining:$expression:caused:$@:");
}	}
if ($@ ne '') {&Apache::lonxml::error($@);}
return $result	return $result
}	}

Line 80 sub run {	Line 79 sub run {
$@='';	$@='';
my (@result)=$safeeval->reval($code);	my (@result)=$safeeval->reval($code);
if ($@ ne '' && !$hideerrors) {	if ($@ ne '' && !$hideerrors) {
&Apache::lonxml::error(":$code:caused");	&Apache::lonxml::error(":$@: occured while running :$code:");
&Apache::lonxml::error($@);
}	}
if ( $#result < '1') {	if ( $#result < '1') {
return $result[0];	return $result[0];