loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.5, 2000/10/12 13:51:50	version 1.6, 2000/10/26 14:01:40
Line 17 sub BEGIN {	Line 17 sub BEGIN {
sub start_m {	sub start_m {
my ($target,$token,$parstack,$parser) = @_;	my ($target,$token,$parstack,$parser) = @_;
my $currentstring = '';	my $currentstring = '';
	if ($target eq 'meta') {
	my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]);
	$currentstring ='';
	}
if ($target eq 'web') {	if ($target eq 'web') {
my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]);	my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]);
$inside ='\\documentstyle{article}'.$inside;	$inside ='\\documentstyle{article}'.$inside;
Line 35 sub BEGIN {	Line 39 sub BEGIN {
if ($target eq 'web') {	if ($target eq 'web') {
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = "\$";	$currentstring = "\$";
	} elsif ($target eq 'meta') {
}	}
return $currentstring;	return $currentstring;
}	}
Line 828 sub BEGIN {	Line 833 sub BEGIN {
}	}
return $currentstring;	return $currentstring;
}	}
	sub end_hr {
	my ($target,$token) = @_;
	my $currentstring = '';
	if ($target eq 'web') {
	$currentstring .= $token->[2];
	} elsif ($target eq 'tex') {
	}
	return $currentstring;
	}
#----------------------------------------------------------------------------- <a> tag	#----------------------------------------------------------------------------- <a> tag
sub start_a {	sub start_a {
my ($target,$token) = @_;	my ($target,$token) = @_;