loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.36, 2004/03/19 17:54:17	version 1.39, 2004/07/27 14:17:39
Line 95 sub convert_real {	Line 95 sub convert_real {
my ($xmlstring,$errorstring);	my ($xmlstring,$errorstring);
local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; };	local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; };
local $SIG{ALRM}=sub {	local $SIG{ALRM}=sub {
	&Apache::lonnet::logthis("ALRM");
$xmlstring='['.&mt("TeX unconverted due to errors").']';	$xmlstring='['.&mt("TeX unconverted due to errors").']';
$Apache::lontexconvert::messedup=1;	$Apache::lontexconvert::messedup=1;
die &mt("TeX unconverted due to errors");	die &mt("TeX unconverted due to errors");
Line 130 ENDCONV	Line 131 ENDCONV
$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() \|\|
	$errorstring) {
&Apache::lonnet::logthis("Trying to kill myself");	&Apache::lonnet::logthis("Trying to kill myself");
$Apache::lontexconvert::messedup=1;	$Apache::lontexconvert::messedup=1;
my $request=Apache->request();	my $request=Apache->request();
Line 188 sub smiley {	Line 190 sub smiley {
}	}

sub msgtexconverted {	sub msgtexconverted {
my $message=shift;	my ($message,$email) = @_;
my $email=shift;
$errorstring='';	$errorstring='';
&init_tth();	&init_tth();
my $outmessage='';	my $outmessage='';