Return to lontemplate.pm CVS log

Up to [LON-CAPA] / loncom / interface

new file integrated in the loncapa system. This file (lontemplate.pm) include services for template creation.

package Apache::lontemplate;


use strict;
use Apache::Constants qw(:common);
use Apache::loncommon;
use Apache::lonnet;
use Apache::lontexconvert;
use Apache::lonfeedback;
use Apache::lonrss();
use Apache::lonlocal;
use Apache::lonmsgdisplay();
use HTML::Entities();


sub print_template
{	
	my ($r,$topic,$content) = @_;
	$r->print('<div class="DivContentBoxSpecial">');
	$r->print('<h4 class="hcell">'.$topic.'</h4>');
	$r->print('<d1 class="ListStyleClean"><blockquote>'.$content.'</blockquote></d1>');
	$r->print('</div>');
}

sub print_editbox_template
{
	my ($r,$content,$field) = @_;
	$r->print('<br /><textarea cols="80" rows="6" name="'.$field.'">'.
                           &HTML::Entities::encode($content,'"&<>').
           '</textarea><input type="submit" name="storesyl" value="'.
                           &mt('Save').'" />');

}

1;