--- loncom/xml/lonxml.pm 2007/04/16 18:47:46 1.444 +++ loncom/xml/lonxml.pm 2007/05/14 08:42:13 1.445 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.444 2007/04/16 18:47:46 albertel Exp $ +# $Id: lonxml.pm,v 1.445 2007/05/14 08:42:13 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1744,10 +1744,12 @@ sub register_insert_xml { # parse the allows and ignore tags set to no foreach my $tag (@alltags) { + next if (!exists($insertlist{"$tag.allow"})); my $allow = $insertlist{"$tag.allow"}; foreach my $element (split(',',$allow)) { $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); } }