loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.24, 2002/03/29 18:21:00	version 1.25, 2002/04/10 14:46:30
Line 59 sub run {	Line 59 sub run {
$@='';	$@='';
my (@result)=$safeeval->reval($code);	my (@result)=$safeeval->reval($code);
if ($@ ne '' && !$hideerrors) {	if ($@ ne '' && !$hideerrors) {
&Apache::lonxml::error(":$@: occured while running :$code:");	# Put in newline to make display of code easier to read.
	&Apache::lonxml::error(":$@: occured while running :\n$code");
}	}
if ( $#result < '1') {	if ( $#result < '1') {
return $result[0];	return $result[0];