loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.56, 2006/01/11 08:56:13	version 1.57, 2006/02/20 23:52:20
Line 140 sub run {	Line 140 sub run {
if ($innererror=~/line (\d+)/) {	if ($innererror=~/line (\d+)/) {
my $linenumber=$1;	my $linenumber=$1;
my @code=split("\n",$code);	my @code=split("\n",$code);
$code[$linenumber-1]='<b><font color="red">'.	if ($linenumber < scalar(@code)) {
$code[$linenumber-1].'</font></b>';	$code[$linenumber-1]='<b><font color="red">'.
	$code[$linenumber-1].'</font></b>';
	}
$code=join("\n",@code);	$code=join("\n",@code);
}	}
&Apache::lonxml::error($errormsg.$code.'</pre>');	&Apache::lonxml::error($errormsg.$code.'</pre>');