loncom/interface/lontemplate.pm - diff

Return to lontemplate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.48, 2013/05/09 05:47:57	version 1.50, 2013/05/10 23:46:05
Line 116 sub print_template {	Line 116 sub print_template {

sub print_start_template {	sub print_start_template {
my ($r,$topic,$boxclass,$id,$display) = @_;	my ($r,$topic,$boxclass,$id,$display) = @_;
my $idattrib;	my $idattrib;
if ($id ne '') {	if ($id ne '') {
$idattrib = ' id="'.$id.'"';	$idattrib = ' id="'.$id.'"';
}	}
Line 167 sub print_template_fields {	Line 167 sub print_template_fields {
my $message = $data{$field} if (($data{$field}=~/\w/) \|\| ($allowed));	my $message = $data{$field} if (($data{$field}=~/\w/) \|\| ($allowed));
my $legacy = 1;	my $legacy = 1;
my $display = $displays{$field};	my $display = $displays{$field};
my $hidden;
unless ($allowed) {	unless ($allowed) {
next if ($noshow{$field});	next if ($noshow{$field});
}	}