Return to run.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.15, 2001/02/19 20:43:00 | version 1.16, 2001/05/04 21:17:24 |
---|---|
Line 34 ENDEVALUATE | Line 34 ENDEVALUATE |
sub evaluate { | sub evaluate { |
my ($expression,$safeeval,$decls) = @_; | my ($expression,$safeeval,$decls) = @_; |
unless (defined $expression) { return ''; } | unless (defined $expression) { return ''; } |
if (!$Apache::lonxml::evaluate) { return $expression; } | |
my $result = ''; | my $result = ''; |
$@=''; | $@=''; |
print $decls | print $decls |