--- loncom/interface/lonhtmlcommon.pm	2006/03/21 20:19:41	1.123
+++ loncom/interface/lonhtmlcommon.pm	2006/04/18 22:35:41	1.124
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.123 2006/03/21 20:19:41 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.124 2006/04/18 22:35:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1015,6 +1015,22 @@ ENDLINK
 
 # ------------------------------------------------- Output headers for HTMLArea
 
+{
+    my @htmlareafields;
+    sub init_htmlareafields {
+	undef(@htmlareafields);
+    }
+    
+    sub add_htmlareafields {
+	my (@newfields) = @_;
+	push(@htmlareafields,@newfields);
+    }
+
+    sub get_htmlareafields {
+	return @htmlareafields;
+    }
+}
+
 sub htmlareaheaders {
     if (&htmlareablocked()) { return ''; }
     unless (&htmlareabrowser()) { return ''; }