loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.62, 2005/02/28 19:08:11	version 1.64, 2005/03/01 03:21:05
Line 98 sub convert_real {	Line 98 sub convert_real {
$Apache::lontexconvert::messedup=1;	$Apache::lontexconvert::messedup=1;
die &mt("TeX unconverted due to errors");	die &mt("TeX unconverted due to errors");
};	};
alarm($Apache::lonnet::perlvar{'lonScriptTimeout'});	&Apache::lonxml::start_alarm();
if ($ENV{'browser.mathml'}) {	if ($ENV{'browser.mathml'}) {
$xmlstring=&tth::ttm($$texstring);	$xmlstring=&tth::ttm($$texstring);
$xmlstring=~s/\<math\>/\<math xmlns=\"\&mathns\;\"\>/g;	$xmlstring=~s/\<math\>/\<math xmlns=\"\&mathns\;\"\>/g;
Line 113 sub convert_real {	Line 113 sub convert_real {
$xmlstring=~s/^\s*\<br clear\=\"all\"/\<br/s;	$xmlstring=~s/^\s*\<br clear\=\"all\"/\<br/s;
$xmlstring=~s/^\s*//;	$xmlstring=~s/^\s*//;
$xmlstring=~s/\s*$//;	$xmlstring=~s/\s*$//;
alarm(0);	&Apache::lonxml::end_alarm();
return ($xmlstring,$errorstring);	return ($xmlstring,$errorstring);
}	}

Line 259 sub msgtexconverted {	Line 259 sub msgtexconverted {
$outmessage.=&smiley($_); $tex=1;	$outmessage.=&smiley($_); $tex=1;
}	}
}	}
	$message=$outmessage; $outmessage=''; $tex=0;
	foreach (split(/(?:\&lt\;\|\<)\/algebra\s(?:\&gt\;\|\>)/i,$message)) {
	if ($tex) {
	if ($email) {
	$outmessage.='</pre><tt>'.&algebra($_,'web').'</tt><pre>'; $tex=0;
	} else {
	$outmessage.=&algebra($_,'web'); $tex=0;
	}
	} else {
	$outmessage.=$_; $tex=1;
	}
	}
if (wantarray) {	if (wantarray) {
return ($outmessage,$errorstring);	return ($outmessage,$errorstring);
} else {	} else {