loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.39, 2003/06/18 21:04:42
+version 1.40, 2003/10/01 21:27:35
  Line 98  sub run {
  	    $error = 'Code ran too long. It ran for more than '.
  		Apache->request->server->timeout.' seconds';
  	}
- 	&Apache::lonxml::error('<pre>'.&HTML::Entities::encode($error).' '.
+ 	my $errormsg='<pre>'.&HTML::Entities::encode($error).' '.
- 			       &HTML::Entities::encode($innererror).
+ 	    &HTML::Entities::encode($innererror).
- 			       '</pre> occured while running <pre>'.
+ 	    '</pre> occured while running <pre>';
- 			       &HTML::Entities::encode($code).'</pre>');
+ 	$code=&HTML::Entities::encode($code);
+ 	&Apache::lonxml::debug("");
+ 	if ($innererror=~/line (\d+)/) {
+ 	    &Apache::lonxml::debug("Line is $1");
+ 	    my $linenumber=$1;
+ 	    my @code=split("\n",$code);
+ 	    $code[$linenumber-1]='<b><font color="red">'.
+ 		$code[$linenumber-1].'</font></b>';
+ 	    $code=join("\n",@code);
+ 	}
+ 	&Apache::lonxml::error($errormsg.$code.'</pre>');
      }
      if ( $#result < '1') {
  	return $result[0];