loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.11, 2000/11/15 15:29:33	version 1.12, 2000/11/16 14:20:05
Line 42 sub evaluate {	Line 42 sub evaluate {
# $safeeval->reval('{'.$decls.';<< &evaluate(q\|'.$expression.'\|);}');	# $safeeval->reval('{'.$decls.';<< &evaluate(q\|'.$expression.'\|);}');
if ($@ eq '') {	if ($@ eq '') {
$result = $safeeval->reval('return $_;');	$result = $safeeval->reval('return $_;');
	chop $result;
} else {	} else {
&Apache::lonxml::error("substitution on:$expression:with:$decls:caused $@");	&Apache::lonxml::error("substitution on:$expression:with:$decls:caused $@");
}	}