--- loncom/xml/lonxml.pm	2005/01/30 12:56:45	1.354
+++ loncom/xml/lonxml.pm	2005/01/30 23:31:12	1.355
@@ -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 @@ sub htmlclean {
 # 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;