version 1.37, 2003/06/09 21:37:54
|
version 1.39, 2003/06/18 21:04:42
|
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 = ''; |
Line 131 sub dump {
|
Line 130 sub dump {
|
$symname.'{$_} } sort keys %'. |
$symname.'{$_} } sort keys %'. |
$symname.')').")" |
$symname.')').")" |
} |
} |
if ($line ne '') { $dump.=&HTML::Entities::encode($line)."<br />\n"; } |
if ($line ne '') { $dump.=&HTML::Entities::encode($line)."<br />"; } |
} |
} |
} |
} |
$dump.=''; |
$dump.=''; |