loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.505.2.4, 2010/09/29 16:12:17	version 1.505.2.5, 2011/05/27 19:29:21
Line 2141 sub register_insert_xml {	Line 2141 sub register_insert_xml {
my $key;	my $key;
if ($token->[1] eq 'tag') {	if ($token->[1] eq 'tag') {
$tag = $token->[2]{'name'};	$tag = $token->[2]{'name'};
$insertlist{"$tagnum.tag"} = $tag;	$insertlist{$tagnum.'.tag'} = $tag;
$insertlist{"$tag.num"} = $tagnum;	$insertlist{$tag.'.num'} = $tagnum;
push(@alltags,$tag);	push(@alltags,$tag);
} elsif ($in_help && $token->[1] eq 'file') {	} elsif ($in_help && $token->[1] eq 'file') {
$key = $tag.'.helpfile';	$key = $tag.'.helpfile';
Line 2175 sub register_insert_xml {	Line 2175 sub register_insert_xml {

# parse the allows and ignore tags set to <show>no</show>	# parse the allows and ignore tags set to <show>no</show>
foreach my $tag (@alltags) {	foreach my $tag (@alltags) {
next if (!exists($insertlist{"$tag.allow"}));	next if (!exists($insertlist{$tag.'.allow'}));
my $allow = $insertlist{"$tag.allow"};	my $allow = $insertlist{$tag.'.allow'};
foreach my $element (split(',',$allow)) {	foreach my $element (split(',',$allow)) {
$element =~ s/(^\s\|\s$ )//gx;	$element =~ s/(^\s\|\s$ )//gx;
if (!exists($insertlist{"$element.show"})	if (!exists($insertlist{$element.'.show'})
\|\| $insertlist{"$element.show"} ne 'no') {	\|\| $insertlist{$element.'.show'} ne 'no') {
push(@{ $insertlist{$tag.'.which'} },$element);	push(@{ $insertlist{$tag.'.which'} },$element);
}	}
}	}