version 1.17, 2001/05/21 03:28:24
|
version 1.18, 2001/07/20 21:19:38
|
Line 50 sub evaluate {
|
Line 50 sub evaluate {
|
} |
} |
|
|
sub run { |
sub run { |
my ($code,$safeeval) = @_; |
my ($code,$safeeval,$hideerrors) = @_; |
# print "inside run\n"; |
# print "inside run\n"; |
$@=''; |
$@=''; |
my (@result)=$safeeval->reval($code); |
my (@result)=$safeeval->reval($code); |
if ($@ ne '') { |
if ($@ ne '' && !$hideerrors) { |
&Apache::lonxml::error(":$code:caused"); |
&Apache::lonxml::error(":$code:caused"); |
&Apache::lonxml::error($@); |
&Apache::lonxml::error($@); |
} |
} |
if ( $#result < '1') { |
if ( $#result < '1') { |
return $result[0]; |
return $result[0]; |