loncom/interface/lontemplate.pm - diff

Return to lontemplate.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.16, 2009/02/13 18:56:13
+version 1.17, 2009/02/19 17:32:39
  Line 113  sub end_ContentBox{
  sub send_message{
  	my ($r,$cnum,$cdom) = @_;
+ 	my $s;
  	my $image = qq{<img name="Send message" src="/res/adm/pages/com.png" border="none" />};
- 	$r->print('<div>');
+ 	#$r->print('<div>');
- 	$r->print(&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom));
+ 	$s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom);
- 	$r->print('</div>');
+ 	#$r->print('</div>');
+ 	return $s;
  }
  sub print_template
- Line 136  sub print_editbox_template
+ Line 138  sub print_editbox_template
             '</textarea><br /><input type="submit" name="storesyl" value="'.
                             &mt('Save All').'" />');
  }
+ sub print_start_page_functions
+ {
+ 	my($r)=@_;
+ 	#TODO add translation for Functions
+ 	$r->print('<fieldset><legend>Functions</legend>');
+ }
+ sub print_functions_content
+ {
+ 	my($r,$content) = @_;
+ 	$r->print($content.'&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp');
+ }
+ sub print_end_page_functions
+ {
+ 	my($r)=@_;
+ 	$r->print('</fieldset>');
+ }
 ;