--- loncom/interface/lontemplate.pm 2009/12/03 02:13:28 1.41 +++ loncom/interface/lontemplate.pm 2013/04/24 02:43:59 1.47 @@ -1,7 +1,7 @@ # The LearningOnline Network # "Template" Functions to generate html output # -# $Id: lontemplate.pm,v 1.41 2009/12/03 02:13:28 www Exp $ +# $Id: lontemplate.pm,v 1.47 2013/04/24 02:43:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,11 +26,11 @@ # http://www.lon-capa.org/ # - package Apache::lontemplate; use strict; +use utf8; use Apache::Constants qw(:common); use Apache::loncommon; use Apache::lonnet; @@ -40,9 +40,17 @@ use Apache::lontexconvert; use Apache::lonfeedback; use Apache::lonrss(); use Apache::lonlocal; +use Apache::lonhtmlgateway; 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) = @_; @@ -107,8 +115,12 @@ sub print_template { } sub print_start_template { - my ($r,$topic,$boxclass) = @_; - $r->print('