--- loncom/interface/lontemplate.pm 2008/12/02 23:41:00 1.6 +++ loncom/interface/lontemplate.pm 2010/02/15 20:28:51 1.43.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # "Template" Functions to generate html output # -# $Id: lontemplate.pm,v 1.6 2008/12/02 23:41:00 harmsja Exp $ +# $Id: lontemplate.pm,v 1.43.2.1 2010/02/15 20:28:51 faziophi Exp $ # # Copyright Michigan State University Board of Trustees # @@ -43,56 +43,156 @@ use Apache::lonlocal; use Apache::lonmsgdisplay(); use HTML::Entities(); -sub print_content_template{ +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.''); +sub send_message { + my ($r,$cnum,$cdom) = @_; + my $linktext = &mt('Send message to [_1]', + &Apache::loncommon::plainname($cnum,$cdom)); + my $image = qq{}; + return &Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper($linktext,$cnum,$cdom); +} + +sub print_template { + my ($r,$topic,$content, $allowed,$boxclass) = @_; + $r->print('