version 1.16, 2001/05/04 21:17:24
|
version 1.17, 2001/05/21 03:28:24
|
Line 37 sub evaluate {
|
Line 37 sub evaluate {
|
if (!$Apache::lonxml::evaluate) { return $expression; } |
if (!$Apache::lonxml::evaluate) { return $expression; } |
my $result = ''; |
my $result = ''; |
$@=''; |
$@=''; |
print $decls |
|
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}'); |
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}'); |
# $safeeval->reval('{'.$decls.';<< &evaluate(q|'.$expression.'|);}'); |
# $safeeval->reval('{'.$decls.';<< &evaluate(q|'.$expression.'|);}'); |