loncom/interface/lontemplate.pm - diff

Return to lontemplate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.34, 2009/05/30 20:41:34	version 1.35, 2009/05/30 21:52:30
Line 104 sub send_message {	Line 104 sub send_message {
return $s;	return $s;
}	}

sub print_template	sub print_template {
{
my ($r,$topic,$content, $allowed,$boxclass) = @_;	my ($r,$topic,$content, $allowed,$boxclass) = @_;
$r->print('<div class="'.$boxclass.'">');	$r->print('<div class="'.$boxclass.'">');
$r->print('<h4 class="LC_hcell">'.$topic.'</h4>');	$r->print('<h4 class="LC_hcell">'.$topic.'</h4>');
$r->print('<div class="LC_BoxPadding">' .$content . '</div>');	$r->print($content);
$r->print('</div>');	$r->print('</div>');
}	}

sub print_start_template	sub print_start_template {
{
my ($r,$topic,$boxclass) = @_;	my ($r,$topic,$boxclass) = @_;
$r->print('<div class="'.$boxclass.'">');	$r->print('<div class="'.$boxclass.'">');
$r->print('<h4 class="LC_hcell">'.$topic.'</h4>');	$r->print('<h4 class="LC_hcell">'.$topic.'</h4>');
$r->print('<div class="LC_BoxPadding">' );
}	}

sub print_end_template	sub print_end_template {
{
my ($r) = @_;	my ($r) = @_;
$r->print('</div>');	$r->print('</div>');
$r->print('</div>');
}	}

sub print_editbox_template	sub print_editbox_template {
{
my ($r,$content,$field) = @_;	my ($r,$content,$field) = @_;
$r->print('<textarea cols="81" rows="6" name="'.$field.'">'.	$r->print('<textarea cols="81" rows="6" name="'.$field.'">'.
&HTML::Entities::encode($content,'"&<>').	&HTML::Entities::encode($content,'"&<>').