--- loncom/xml/run.pm 2001/01/04 19:14:10 1.14
+++ loncom/xml/run.pm 2001/05/04 21:17:24 1.16
@@ -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,6 +34,7 @@ ENDEVALUATE
sub evaluate {
my ($expression,$safeeval,$decls) = @_;
unless (defined $expression) { return ''; }
+ if (!$Apache::lonxml::evaluate) { return $expression; }
my $result = '';
$@='';
print $decls