--- loncom/interface/lontemplate.pm 2009/05/07 11:12:47 1.32 +++ loncom/interface/lontemplate.pm 2009/05/11 13:34:10 1.33 @@ -1,7 +1,7 @@ # The LearningOnline Network # "Template" Functions to generate html output # -# $Id: lontemplate.pm,v 1.32 2009/05/07 11:12:47 bisitz Exp $ +# $Id: lontemplate.pm,v 1.33 2009/05/11 13:34:10 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,17 +44,17 @@ use Apache::lonmsgdisplay(); use HTML::Entities(); -sub start_columnSection{ +sub start_columnSection { my ($r) = @_; $r->print('
'); } -sub end_columnSection{ +sub end_columnSection { my ($r) = @_; $r->print('
'); } -sub print_aboutme_content_template{ +sub print_aboutme_content_template { my ($r,$allowed,$target,$syllabusfields_ref,$syllabus_ref) = @_; my %syllabusfields = %{$syllabusfields_ref}; my %syllabus = %{$syllabus_ref}; @@ -70,15 +70,14 @@ sub print_aboutme_content_template{ } $message=&Apache::lontexconvert::msgtexconverted($message); if ($target ne 'tex') { - if($allowed){ + if ($allowed) { $r->print('

'); } if($field eq 'aaa_contactinfo') { $r->print('

 
'); &print_template($r,$syllabusfields{$field},$message,$allowed,'LC_ContentBoxSpecial'); - } - else{ + } else { &print_template($r,$syllabusfields{$field},$message,$allowed,'LC_ContentBoxSpecial'); } @@ -88,7 +87,7 @@ sub print_aboutme_content_template{ } if ($allowed) { &print_editbox_template($r,$syllabus{$field},$field); - if($target ne 'tex'){ + if ($target ne 'tex') { $r->print('

'); } } @@ -97,18 +96,18 @@ sub print_aboutme_content_template{ } -sub start_ContentBox{ +sub start_ContentBox { my ($r,$allowed) = @_; $r->print('
'); } -sub end_ContentBox{ +sub end_ContentBox { my ($r) = @_; $r->print('
'); } -sub send_message{ +sub send_message { my ($r,$cnum,$cdom) = @_; my $s; my $image = qq{}; @@ -124,6 +123,7 @@ sub print_template $r->print('
' .$content . '
'); $r->print(''); } + sub print_start_template { my ($r,$topic,$boxclass) = @_; @@ -131,12 +131,14 @@ sub print_start_template $r->print('

'.$topic.'

'); $r->print('
' ); } + sub print_end_template { my ($r) = @_; $r->print('
'); $r->print(''); } + sub print_editbox_template { my ($r,$content,$field) = @_;