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">'. |