version 1.36, 2003/04/03 21:58:40
|
version 1.37, 2003/06/09 21:37:54
|
Line 38 ENDEVALUATE
|
Line 38 ENDEVALUATE
|
|
|
sub evaluate { |
sub evaluate { |
my ($expression,$safeeval,$decls) = @_; |
my ($expression,$safeeval,$decls) = @_; |
|
&Apache::lonxml::debug("got $expression and decls $decls"); |
unless (defined($expression)) { return ''; } |
unless (defined($expression)) { return ''; } |
if ($Apache::lonxml::evaluate < 1) { return $expression; } |
if ($Apache::lonxml::evaluate < 1) { return $expression; } |
my $result = ''; |
my $result = ''; |