[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Thu, 17 May 2007 21:01:03 -0000


albertel		Thu May 17 17:01:03 2007 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - show insertables by default
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.445 loncom/xml/lonxml.pm:1.446
--- loncom/xml/lonxml.pm:1.445	Mon May 14 04:42:13 2007
+++ loncom/xml/lonxml.pm	Thu May 17 17:00:59 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.445 2007/05/14 08:42:13 albertel Exp $
+# $Id: lonxml.pm,v 1.446 2007/05/17 21:00:59 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1748,8 +1748,8 @@
 	my $allow =  $insertlist{"$tag.allow"};
        	foreach my $element (split(',',$allow)) {
 	    $element =~ s/(^\s*|\s*$ )//gx;
-	    if (exists($insertlist{"$element.show"})
-                && $insertlist{"$element.show"} ne 'no') {
+	    if (!exists($insertlist{"$element.show"})
+                || $insertlist{"$element.show"} ne 'no') {
 		push(@{ $insertlist{$tag.'.which'} },$element);
 	    }
 	}