--- loncom/interface/lontemplate.pm 2008/11/20 13:57:40 1.3 +++ loncom/interface/lontemplate.pm 2009/12/22 06:22:12 1.42 @@ -1,7 +1,7 @@ # The LearningOnline Network # "Template" Functions to generate html output # -# $Id: lontemplate.pm,v 1.3 2008/11/20 13:57:40 www Exp $ +# $Id: lontemplate.pm,v 1.42 2009/12/22 06:22:12 faziophi Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,8 @@ use strict; use Apache::Constants qw(:common); use Apache::loncommon; use Apache::lonnet; +use Apache::lonxml; +use Apache::lonspeller; use Apache::lontexconvert; use Apache::lonfeedback; use Apache::lonrss(); @@ -41,24 +43,105 @@ use Apache::lonlocal; use Apache::lonmsgdisplay(); use HTML::Entities(); +use constant { + RICH_TEXT_ALWAYS_ON => 'LC_richAlwaysOn', + RICH_TEXT_ALWAYS_OFF => 'LC_richAlwaysOff', + RICH_TEXT_DEFAULT_ON => 'LC_richDefaultOn', + RICH_TEXT_DETECT_HTML => 'LC_richDetectHtml', + RICH_TEXT_DEFAULT_OFF => 'LC_richDefaultOff' +}; + +sub start_columnSection { + my ($r) = @_; + $r->print('
'.$content.'