');
+
}
sub end_ContentBox{
@@ -105,32 +110,59 @@ sub end_ContentBox{
sub send_message{
my ($r,$cnum,$cdom) = @_;
- my $image = qq{
};
- $r->print('
');
- $r->print(&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&mt('Send me a message'));
- $r->print('
');
+ my $s;
+ 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
-{
- my ($r,$topic,$content, $allowed) = @_;
- if($allowed){
- $r->print('
');
- }else{
- $r->print('
');
- }
- $r->print('
'.$topic.' ');
- $r->print('
'.$content.' ');
+{
+ my ($r,$topic,$content, $allowed,$boxclass) = @_;
+ $r->print('
');
+ $r->print('
'.$topic.' ');
+ $r->print('
' .$content . '
');
+ $r->print('
');
+}
+sub print_start_template
+{
+ my ($r,$topic,$boxclass) = @_;
+ $r->print('
');
+ $r->print('
'.$topic.' ');
+ $r->print('
' );
+}
+sub print_end_template
+{
+ my ($r) = @_;
+ $r->print('
');
$r->print('
');
}
-
sub print_editbox_template
{
my ($r,$content,$field) = @_;
$r->print('
');
}
+# Functionslist: List of functions
+# Typically used to display a list of available functions at top of page
+sub start_functionslist {
+ my($legendtext)=@_;
+ $legendtext=&mt('Functions') if !$legendtext;
+ return '
'.$legendtext.' '
+ .'';
+}
+
+sub item_functionslist {
+ my($content) = @_;
+ return ''.$content.' ';
+}
+
+sub end_functionslist {
+ my($r)=@_;
+ return ' ';
+}
+
1;