loncom/interface/lontemplate.pm - diff

Return to lontemplate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2008/12/02 09:19:47	version 1.6, 2008/12/02 23:41:00
Line 47 sub print_content_template{	Line 47 sub print_content_template{
my ($r,$allowed,$target,$syllabusfields_ref,$syllabus_ref) = @_;	my ($r,$allowed,$target,$syllabusfields_ref,$syllabus_ref) = @_;
my %syllabusfields = %{$syllabusfields_ref};	my %syllabusfields = %{$syllabusfields_ref};
my %syllabus = %{$syllabus_ref};	my %syllabus = %{$syllabus_ref};
$r->print('<div class="ContentBox">');	$r->print('<div class="columnSection">');
foreach my $field (sort(keys(%syllabusfields))) {	foreach my $field (sort(keys(%syllabusfields))) {
if (($syllabus{$field}) \|\| ($allowed)) {	if (($syllabus{$field}) \|\| ($allowed)) {
my $message=$syllabus{$field};	my $message=$syllabus{$field};
Line 81 sub print_template	Line 81 sub print_template
my ($r,$topic,$content) = @_;	my ($r,$topic,$content) = @_;
$r->print('<div class="ContentBoxSpecial">');	$r->print('<div class="ContentBoxSpecial">');
$r->print('<h4 class="hcell">'.$topic.'</h4>');	$r->print('<h4 class="hcell">'.$topic.'</h4>');
$r->print('<d1 class="ListStyleClean"><blockquote>'.$content.'</blockquote></d1>');	$r->print('<blockquote>'.$content.'</blockquote>');
$r->print('</div>');	$r->print('</div>');
}	}