--- loncom/xml/run.pm	2001/02/19 20:43:00	1.15
+++ loncom/xml/run.pm	2001/05/21 03:28:24	1.17
@@ -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.'|);}');