loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.55, 2006/01/11 08:52:58	version 1.57, 2006/02/20 23:52:20
Line 50 while (!$_LONCAPA_INTERNAL_oldexpression	Line 50 while (!$_LONCAPA_INTERNAL_oldexpression
my $__LC__prefix;	my $__LC__prefix;
my $__LC__result;	my $__LC__result;
while (1) {	while (1) {
if ($__LC__a =~ m-^&(theta\|i\|pi\|rho)-) { last; }	if ($__LC__a =~ m-^&(theta\|pi\|rho)$-) { last; }
{	{
use strict;	use strict;
no strict "vars";	no strict "vars";
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>');