loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.444, 2007/04/16 18:47:46	version 1.445, 2007/05/14 08:42:13
Line 1744 sub register_insert_xml {	Line 1744 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"}));
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 ($insertlist{"$element.show"} ne 'no') {	if (exists($insertlist{"$element.show"})
	&& $insertlist{"$element.show"} ne 'no') {
push(@{ $insertlist{$tag.'.which'} },$element);	push(@{ $insertlist{$tag.'.which'} },$element);
}	}
}	}