loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.445, 2007/05/14 08:42:13	version 1.446, 2007/05/17 21:00:59
Line 1748 sub register_insert_xml {	Line 1748 sub register_insert_xml {
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);
}	}
}	}