--- loncom/interface/lonfeedback.pm	2006/08/08 19:02:04	1.214
+++ loncom/interface/lonfeedback.pm	2006/08/16 19:32:54	1.216
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.214 2006/08/08 19:02:04 albertel Exp $
+# $Id: lonfeedback.pm,v 1.216 2006/08/16 19:32:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2058,10 +2058,10 @@ $start_page
   <td>&nbsp;</td>
   <td align="center" valign="top">
    <select name="statusfilter">
-    <option value="all" selected="selected" />$status_types{'all'}</option>
-    <option value="Active" />$status_types{'Active'}</option>
-    <option value="Expired" />$status_types{'Expired'}</option>
-    <option value="Future" />$status_types{'Future'}</option>
+    <option value="all" selected="selected">$status_types{'all'}</option>
+    <option value="Active">$status_types{'Active'}</option>
+    <option value="Expired">$status_types{'Expired'}</option>
+    <option value="Future">$status_types{'Future'}</option>
    </select>
   </td>
   <td>&nbsp;</td>
@@ -2546,9 +2546,9 @@ sub clear_out_html {
 	     H1=>1, H2=>1, H3=>1, H4=>1, H5=>1);
   }
 # Do the substitution of everything that is not explicitly allowed
-  $message =~ s/\<(\/?\s*(\w*)[^\>\<]*)/
+  $message =~ s/\<(\/?\s*(\w+)[^\>\<]*)/
 	  {($html{uc($2)}&&(length($1)<1000))?"\<$1":"\&lt;$1"}/ge;
-  $message =~ s/(\<?\s*(\w*)[^\<\>]*)\>/
+  $message =~ s/(\<?\s*(\w+)[^\<\>]*)\>/
 	  {($html{uc($2)}&&(length($1)<1000))?"$1\>":"$1\&gt;"}/ge;
   return $message;
 }