version 1.30, 2002/05/24 16:48:50
|
version 1.31, 2002/06/24 21:23:26
|
Line 39 ENDEVALUATE
|
Line 39 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; } |
if ($Apache::lonxml::evaluate < 1) { return $expression; } |
my $result = ''; |
my $result = ''; |
$@=''; |
$@=''; |
if ($Apache::lonxml::request) { |
if ($Apache::lonxml::request) { |