--- loncom/interface/loncommon.pm	2013/11/26 01:19:15	1.1160
+++ loncom/interface/loncommon.pm	2013/11/26 03:17:07	1.1161
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1160 2013/11/26 01:19:15 raeburn Exp $
+# $Id: loncommon.pm,v 1.1161 2013/11/26 03:17:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -14910,6 +14910,28 @@ sub check_recaptcha {
     return $captcha_chk;
 }
 
+sub cleanup_html {
+    my ($incoming) = @_;
+    my $outgoing;
+    if ($incoming ne '') {
+        $outgoing = $incoming;
+        $outgoing =~ s/;/&#059;/g;
+        $outgoing =~ s/\#/#/g;
+        $outgoing =~ s/\&/&/g;
+        $outgoing =~ s/</&#060;/g;
+        $outgoing =~ s/>/&#062;/g;
+        $outgoing =~ s/\(/&#040/g;
+        $outgoing =~ s/\)/&#041;/g;
+        $outgoing =~ s/"/&#034;/g;
+        $outgoing =~ s/'/&#039;/g;
+        $outgoing =~ s/\$/&#036;/g;
+        $outgoing =~ s{/}{&#047;}g;
+        $outgoing =~ s/=/&#061;/g;
+        $outgoing =~ s/\\/&#092;/g
+    }
+    return $outgoing;
+}
+
 =pod
 
 =back