--- loncom/interface/lontemplate.pm 2008/11/28 10:56:31 1.4 +++ loncom/interface/lontemplate.pm 2012/05/15 22:52:56 1.45.6.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # "Template" Functions to generate html output # -# $Id: lontemplate.pm,v 1.4 2008/11/28 10:56:31 bisitz Exp $ +# $Id: lontemplate.pm,v 1.45.6.2 2012/05/15 22:52:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,14 +26,16 @@ # http://www.lon-capa.org/ # - package Apache::lontemplate; use strict; +use utf8; 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,157 @@ 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.'