');
}
-sub send_message{
+sub send_message {
my ($r,$cnum,$cdom) = @_;
my $s;
- my $image = qq{};
- $s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom);
+ 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,$boxclass) = @_;
- $r->print('
');
+{
+ my ($r,$topic,$content, $allowed,$boxclass) = @_;
+ $r->print('
');
}
@@ -136,20 +147,24 @@ sub print_editbox_template
' ');
}
-sub print_start_page_functions
-{
- my($r)=@_;
- $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 '';
}
+
1;