loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.102, 2010/04/26 21:36:50	version 1.103, 2010/04/27 20:29:20
Line 394 sub msgtexconverted {	Line 394 sub msgtexconverted {
foreach my $fragment (split(/(?:\&lt\;\|\<)\/algebra\s(?:\&gt\;\|\>)/i,	foreach my $fragment (split(/(?:\&lt\;\|\<)\/algebra\s(?:\&gt\;\|\>)/i,
$message)) {	$message)) {
if ($tex) {	if ($tex) {
	my $algebra = &algebra($fragment, 'web', undef, undef, undef, undef, 'tth');
if ($email) {	if ($email) {
$outmessage.='</pre><tt>'.&algebra($fragment,'web').'</tt><pre>';	$outmessage.='</pre><tt>'.$algebra.'</tt><pre>';
$tex=0;	$tex=0;
} else {	} else {
$outmessage.=&algebra($fragment,'web');	$outmessage.=$algebra;
$tex=0;	$tex=0;
}	}
} else {	} else {
$outmessage.=$fragment;	$outmessage.=$fragment;
$tex=1;	$tex=1;
}	}
}	}
Line 415 sub msgtexconverted {	Line 416 sub msgtexconverted {

sub algebra {	sub algebra {
use AlgParser;	use AlgParser;
&init_tth();	my ($string,$target,$style,$parstack,$safeeval,$tth)=@_;
my ($string,$target,$style,$parstack,$safeeval)=@_;
my $parser = new AlgParserWithImplicitExpand;	my $parser = new AlgParserWithImplicitExpand;
	if ($tth eq 'tth') {&init_tth();}
$string=&prepare_algebra($string);	$string=&prepare_algebra($string);
my $ret = $parser->parse($string);	my $ret = $parser->parse($string);
my $result='['.&mt('Algebra unconverted due to previous errors').']';	my $result='['.&mt('Algebra unconverted due to previous errors').']';