loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.72, 2002/07/11 20:05:44	version 1.73, 2002/07/12 16:37:38
Line 74 sub start_m {	Line 74 sub start_m {
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$Apache::lonxml::prevent_entity_encode++;	$Apache::lonxml::prevent_entity_encode++;
my $inside = &Apache::lonxml::get_all_text("/m",$$parser[-1]);	my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
$inside ='\\documentstyle{article}'.$inside;	$inside ='\\documentstyle{article}'.$inside;
&Apache::lonxml::debug("M is starting with:$inside:");	&Apache::lonxml::debug("M is starting with:$inside:");
my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);	my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);
Line 90 sub start_m {	Line 90 sub start_m {
}	}
#&Apache::lonxml::debug("M is ends with:$currentstring:");	#&Apache::lonxml::debug("M is ends with:$currentstring:");
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = "";	$currentstring = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
	} else {
	my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
}	}
return $currentstring;	return $currentstring;
}	}