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

[www]

www		Sun Jan 30 18:31:14 2005 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  More known tags for lowercasing during cleanup.
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.354 loncom/xml/lonxml.pm:1.355
--- loncom/xml/lonxml.pm:1.354	Sun Jan 30 07:56:45 2005
+++ loncom/xml/lonxml.pm	Sun Jan 30 18:31:12 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.354 2005/01/30 12:56:45 www Exp $
+# $Id: lonxml.pm,v 1.355 2005/01/30 23:31:12 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -384,7 +384,8 @@
 # Make standard tags lowercase
     foreach ('html','body','head','meta','h1','h2','h3','h4','b','i','m',
              'table','tr','td','th','p','br','hr','img','embed','font',
-             'a','strong','center','title','basefont') {
+             'a','strong','center','title','basefont','li','ol','ul',
+             'input','select','form','option','script','pre') {
 	$raw=~s/\<$_\s*\>/\<$_\>/gis;
         $raw=~s/\<\/$_\s*\>/<\/$_\>/gis;
         $raw=~s/\<$_\s([^\>]*)\>/<$_ $1\>/gis;