loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.16, 2001/01/12 20:38:05	version 1.17, 2001/01/12 20:39:49
Line 237 sub BEGIN {	Line 237 sub BEGIN {
sub start_meta {	sub start_meta {
my ($target,$token) = @_;	my ($target,$token) = @_;
my $currentstring = '';	my $currentstring = '';
&Apache::lonxml::debug("In meta");
if ($target eq 'web') {	if ($target eq 'web') {
&Apache::lonxml::debug("In meta2");
$currentstring = $token->[4];	$currentstring = $token->[4];
}	}
if ($target eq 'meta') {	if ($target eq 'meta') {
&Apache::lonxml::debug("In meta3");
unless ($token->[2]->{'http-equiv'}) {	unless ($token->[2]->{'http-equiv'}) {
my $name=$token->[2]->{'name'};	my $name=$token->[2]->{'name'};
$name=~tr/A-Z/a-z/;	$name=~tr/A-Z/a-z/;
Line 255 sub BEGIN {	Line 252 sub BEGIN {
}	}
}	}
}	}
&Apache::lonxml::debug("send back $currentstring");
return $currentstring;	return $currentstring;
}	}
sub end_meta {	sub end_meta {