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 $@"); |
} |
} |