loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.22, 2001/03/26 15:42:05	version 1.23, 2001/03/26 20:36:10
Line 217 sub end_output {	Line 217 sub end_output {
}	}
#-------------------------------------------------------------------------- <meta> tag	#-------------------------------------------------------------------------- <meta> tag
sub start_meta {	sub start_meta {
my ($target,$token) = @_;	my ($target,$token,$parstack,$parser) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = &Apache::lonxml::get_all_text("/meta",$$parser[$#$parser]);
	$currentstring = '';
}	}
if ($target eq 'meta') {	if ($target eq 'meta') {
unless ($token->[2]->{'http-equiv'}) {	unless ($token->[2]->{'http-equiv'}) {
Line 240 sub end_output {	Line 241 sub end_output {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[2];	# $currentstring = $token->[2];
}	}
return $currentstring;	return $currentstring;
}	}
Line 249 sub end_output {	Line 250 sub end_output {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	# $currentstring = $token->[4];
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$currentstring = " \\begin{document} ";	$currentstring = " \\begin{document} ";
}	}