--- loncom/interface/lontemplate.pm 2009/04/15 10:49:30 1.31
+++ loncom/interface/lontemplate.pm 2009/05/30 21:52:30 1.35
@@ -1,7 +1,7 @@
# The LearningOnline Network
# "Template" Functions to generate html output
#
-# $Id: lontemplate.pm,v 1.31 2009/04/15 10:49:30 bisitz Exp $
+# $Id: lontemplate.pm,v 1.35 2009/05/30 21:52:30 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,48 +96,34 @@ sub print_aboutme_content_template{
}
-sub start_ContentBox{
- my ($r,$allowed) = @_;
- $r->print('');
-
-}
-
-sub end_ContentBox{
- my ($r) = @_;
- $r->print('
');
-}
-
-sub send_message{
+sub send_message {
my ($r,$cnum,$cdom) = @_;
my $s;
- my $image = qq{
};
+ my $image = qq{
};
$s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom);
return $s;
}
-sub print_template
-{
+sub print_template {
my ($r,$topic,$content, $allowed,$boxclass) = @_;
$r->print('');
$r->print('
'.$topic.'
');
- $r->print('
' .$content . '
');
+ $r->print($content);
$r->print('
');
}
-sub print_start_template
-{
+
+sub print_start_template {
my ($r,$topic,$boxclass) = @_;
$r->print('');
$r->print('
'.$topic.'
');
- $r->print('
' );
}
-sub print_end_template
-{
+
+sub print_end_template {
my ($r) = @_;
$r->print('
');
- $r->print('
');
}
-sub print_editbox_template
-{
+
+sub print_editbox_template {
my ($r,$content,$field) = @_;
$r->print('