--- loncom/publisher/loncleanup.pm	2005/05/31 17:41:38	1.5
+++ loncom/publisher/loncleanup.pm	2005/07/13 21:43:02	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to cleanup XML files
 #
-# $Id: loncleanup.pm,v 1.5 2005/05/31 17:41:38 albertel Exp $
+# $Id: loncleanup.pm,v 1.6 2005/07/13 21:43:02 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -218,8 +218,9 @@ sub htmlclean {
     }
 # Generate empty tags, remove wrong end tags
     unless ($blockemptytags) {
-	$raw=~s/\<(br|hr|img|meta|allow|basefont)([^\>\/]*?)\>/\<$1$2 \/\>/gis;
-	$raw=~s/\<\/(br|hr|img|meta|allow|basefont)\>//gis;
+	$raw=~s/\<(br|hr|img|meta|embed|allow|basefont)([^\>]*?)\>/\<$1$2 \/\>/gis;
+	$raw=~s/\<\/(br|hr|img|meta|embed|allow|basefont)\>//gis;
+	$raw=~s/\/ \/\>/\/\>/gs;
 	unless ($full) {
 	    $raw=~s/\<[\/]*(body|head|html)\>//gis;
 	}