[LON-CAPA-cvs] cvs: loncom(version_2_10_X) /interface lonhtmlcommon.pm

[raeburn]

raeburn		Tue Oct 11 13:12:24 2011 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  - Backport 1.286 (part).
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.285.2.1 loncom/interface/lonhtmlcommon.pm:1.285.2.2
--- loncom/interface/lonhtmlcommon.pm:1.285.2.1	Sun May 15 23:57:32 2011
+++ loncom/interface/lonhtmlcommon.pm	Tue Oct 11 13:12:23 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.285.2.1 2011/05/15 23:57:32 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.285.2.2 2011/10/11 13:12:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -60,6 +60,7 @@
 use Time::HiRes;
 use Apache::lonlocal;
 use Apache::lonnet;
+use HTML::Entities();
 use LONCAPA;
 
 sub java_not_enabled {
@@ -83,6 +84,11 @@
    return $message;
 }
 
+sub entity_encode {
+    my ($text)=@_;
+    return &HTML::Entities::encode($text, '<>&"');
+}
+
 ##############################################
 ##############################################