loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lontexconvert.pm between versions 1.34 and 1.35

version 1.34, 2004/03/09 15:09:14	version 1.35, 2004/03/09 15:53:18
Line 89 sub converted {	Line 89 sub converted {
my $texstring=shift;	my $texstring=shift;
my $xmlstring='['.&mt('UNDISPLAYABLE').']';	my $xmlstring='['.&mt('UNDISPLAYABLE').']';
if ($Apache::lontexconvert::messedup) {	if ($Apache::lontexconvert::messedup) {
return &mt('[TeX Unconverted Due To Previous Errors]');	return '['.&mt('TeX unconverted due to previous errors').']';
}	}
eval(<<'ENDCONV');	eval(<<'ENDCONV');
{	{
local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; };	local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; };
	local $SIG{ALRM}=sub {
	$xmlstring='['.&mt("TeX unconverted due to errors").']';
	$Apache::lontexconvert::messedup=1;
	die &mt("TeX unconverted due to errors"); };
	alarm($Apache::lonnet::perlvar{'lonScriptTimeout'});
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 107 sub converted {	Line 112 sub converted {
}	}
$xmlstring=~s/^\s*//;	$xmlstring=~s/^\s*//;
$xmlstring=~s/\s*$//;	$xmlstring=~s/\s*$//;
	alarm(0);
}	}
ENDCONV	ENDCONV
if ($@) {	if ($@) {
$errorstring.=&mt("Evaluation Error ").$@;	$errorstring.=&mt("Evaluation Error: ").$@;
$Apache::lontexconvert::messedup=1;	$Apache::lontexconvert::messedup=1;
}	}
if ($Apache::lontexconvert::messedup \|\| &tth::tthmessedup()) {	if ($Apache::lontexconvert::messedup \|\| &tth::tthmessedup()) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.34
changed lines
	Added in v.1.35