version 1.37, 2003/06/09 21:37:54
|
version 1.38, 2003/06/09 21:45:23
|
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 = ''; |