version 1.22, 2001/12/11 15:48:51
|
version 1.23, 2002/02/15 21:33:12
|
Line 39 sub evaluateold {
|
Line 39 sub evaluateold {
|
if ($@ eq '') { |
if ($@ eq '') { |
$result = $safeeval->reval('return $_;'); |
$result = $safeeval->reval('return $_;'); |
} else { |
} else { |
&Apache::lonxml::error("substitution on:$expression:with:$decls:caused"); |
&Apache::lonxml::error("substitution on:$expression:with:$decls:caused:$@:"); |
} |
} |
} else { |
} else { |
&Apache::lonxml::error("defining:$expression:caused"); |
&Apache::lonxml::error("defining:$expression:caused:$@:"); |
} |
} |
if ($@ ne '') {&Apache::lonxml::error($@);} |
|
return $result |
return $result |
} |
} |
|
|
Line 80 sub run {
|
Line 79 sub run {
|
$@=''; |
$@=''; |
my (@result)=$safeeval->reval($code); |
my (@result)=$safeeval->reval($code); |
if ($@ ne '' && !$hideerrors) { |
if ($@ ne '' && !$hideerrors) { |
&Apache::lonxml::error(":$code:caused"); |
&Apache::lonxml::error(":$@: occured while running :$code:"); |
&Apache::lonxml::error($@); |
|
} |
} |
if ( $#result < '1') { |
if ( $#result < '1') { |
return $result[0]; |
return $result[0]; |