loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.40, 2003/10/01 21:27:35	version 1.41, 2003/10/01 21:34:53
Line 102 sub run {	Line 102 sub run {
&HTML::Entities::encode($innererror).	&HTML::Entities::encode($innererror).
'</pre> occured while running <pre>';	'</pre> occured while running <pre>';
$code=&HTML::Entities::encode($code);	$code=&HTML::Entities::encode($code);
&Apache::lonxml::debug("");
if ($innererror=~/line (\d+)/) {	if ($innererror=~/line (\d+)/) {
&Apache::lonxml::debug("Line is $1");
my $linenumber=$1;	my $linenumber=$1;
my @code=split("\n",$code);	my @code=split("\n",$code);
$code[$linenumber-1]='<b><font color="red">'.	$code[$linenumber-1]='<b><font color="red">'.