loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.3, 2000/07/18 21:27:10	version 1.5, 2000/10/12 13:51:50
Line 13 sub BEGIN {	Line 13 sub BEGIN {
}	}

#===================================================================== TAG SUBROUTINES	#===================================================================== TAG SUBROUTINES
#----------------------------------------------------------------------------- <m> tag	#-- <m> tag
sub start_m {	sub start_m {
my ($target,$token) = @_;	my ($target,$token,$parstack,$parser) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = lontexconvert::converted('hi');	my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]);
	$inside ='\\documentstyle{article}'.$inside;
	# &Apache::lonxml::debug($inside);
	$currentstring = &Apache::lontexconvert::converted(\$inside);
	# &Apache::lonxml::debug($currentstring);

} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = "\$";	$currentstring = "\$";
}	}
Line 28 sub BEGIN {	Line 33 sub BEGIN {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = "\".'\$') ";
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = "\$";	$currentstring = "\$";
}	}