loncom/interface/lontemplate.pm - diff

Return to lontemplate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.43.2.1, 2010/02/15 20:28:51	version 1.43.4.1, 2011/05/13 19:45:28
Line 114 sub print_template {	Line 114 sub print_template {
}	}

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

sub print_end_template {	sub print_end_template {
Line 184 sub print_template_fields {	Line 181 sub print_template_fields {
&Apache::lontemplate::print_end_template($r);	&Apache::lontemplate::print_end_template($r);
} else {	} else {
my $safeinit;	my $safeinit;
$r->print(&Apache::lonxml::xmlparse($r,'tex','<h3>'.$fields{$field}.'</h3>'));	if ($fields{$field}=~/\w/) {
$r->print(&Apache::lonxml::xmlparse($r,'tex',$message));	$r->print(&Apache::lonxml::xmlparse($r,'tex','<h3>'.$fields{$field}.'</h3>'));
	} else {
	$r->print(&Apache::lonxml::xmlparse($r,'tex','<br />'));
	}
	$r->print(&Apache::lonxml::xmlparse($r,'tex',$message));
}	}
push(@html_ids,$field);	push(@html_ids,$field);
}	}