--- loncom/xml/run.pm 2001/01/04 19:14:10 1.14
+++ loncom/xml/run.pm 2001/05/21 03:28:24 1.17
@@ -2,7 +2,7 @@ package Apache::run;
sub evaluateold {
my ($expression,$safeeval,$decls) = @_;
-# print "inside2 evaluate $decls with $expression
\n";
+# print "inside2 evaluate $decls with $expression
\n";
# gerd's old method interpolates unset vars
# $safeeval->reval('return qq('.$expression.');');
unless (defined $expression) { return ''; }
@@ -34,9 +34,9 @@ ENDEVALUATE
sub evaluate {
my ($expression,$safeeval,$decls) = @_;
unless (defined $expression) { return ''; }
+ if (!$Apache::lonxml::evaluate) { return $expression; }
my $result = '';
$@='';
- print $decls
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression.
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}');
# $safeeval->reval('{'.$decls.';<< &evaluate(q|'.$expression.'|);}');