--- loncom/xml/run.pm 2001/02/19 20:43:00 1.15 +++ loncom/xml/run.pm 2001/07/20 21:19:38 1.18 @@ -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.'|);}'); @@ -50,13 +50,13 @@ sub evaluate { } sub run { - my ($code,$safeeval) = @_; + my ($code,$safeeval,$hideerrors) = @_; # print "inside run\n"; $@=''; my (@result)=$safeeval->reval($code); - if ($@ ne '') { - &Apache::lonxml::error(":$code:caused"); - &Apache::lonxml::error($@); + if ($@ ne '' && !$hideerrors) { + &Apache::lonxml::error(":$code:caused"); + &Apache::lonxml::error($@); } if ( $#result < '1') { return $result[0];