loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.41, 2005/01/31 11:26:08	version 1.44, 2005/02/24 01:21:50
Line 36	Line 36
# The C source of the Code may not be distributed by the Licensee	# The C source of the Code may not be distributed by the Licensee
# to any other parties under any circumstances.	# to any other parties under any circumstances.
#	#
# 05/29/00,05/30,10/11,10/20 Gerd Kortemeyer
# 5/4 Gerd Kortemeyer

package Apache::lontexconvert;	package Apache::lontexconvert;

Line 112 sub convert_real {	Line 110 sub convert_real {
$errorstring.=&tth::ttherror();	$errorstring.=&tth::ttherror();
$xmlstring=~s-</font(\s*)>-</font>-g;	$xmlstring=~s-</font(\s*)>-</font>-g;
}	}
$xmlstring=~s/\<br clear\=\"all\"/\<br/gs;	$xmlstring=~s/^\s*\<br clear\=\"all\"/\<br/s;
$xmlstring=~s/^\s*//;	$xmlstring=~s/^\s*//;
$xmlstring=~s/\s*$//;	$xmlstring=~s/\s*$//;
alarm(0);	alarm(0);
Line 214 sub msgtexconverted {	Line 212 sub msgtexconverted {
}	}
}	}

	sub algebra {
	my ($string,$target)=@_;
	my $parser = new AlgParserWithImplicitExpand;
	my $ret = $parser->parse($string);
	my $result='['.&mt('Algebra unconverted due to previous errors').']';
	if ( ref($ret) ) {
	$parser->tostring();
	$parser->normalize();
	my $latex=$parser->tolatex();
	$latex='$$'.$latex.'$$';
	if ($target eq 'web' \|\| $target eq 'analyze') {
	$result = &converted(\$latex);
	} else {
	$result = $latex;
	}
	} else {
	&Apache::lonxml::error($parser->{'htmlerror'});
	}
	}

1;	1;
__END__	__END__