[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm

[albertel]

albertel		Wed Aug 16 15:32:54 2006 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - reverting 1.194 to fix bug#4968 (real fix will be to swtich to a real html cleaner)
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.215 loncom/interface/lonfeedback.pm:1.216
--- loncom/interface/lonfeedback.pm:1.215	Mon Aug 14 17:44:14 2006
+++ loncom/interface/lonfeedback.pm	Wed Aug 16 15:32:54 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.215 2006/08/14 21:44:14 albertel Exp $
+# $Id: lonfeedback.pm,v 1.216 2006/08/16 19:32:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2546,9 +2546,9 @@
 	     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;
 }