loncom/interface/lontemplate.pm - diff

Return to lontemplate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2009/10/12 08:01:08	version 1.39, 2009/10/16 13:47:40
Line 91 sub print_aboutme_content_template {	Line 91 sub print_aboutme_content_template {

sub send_message {	sub send_message {
my ($r,$cnum,$cdom) = @_;	my ($r,$cnum,$cdom) = @_;
my $s;	my $linktext = &mt('Send message to [_1]',
	&Apache::loncommon::plainname($cnum,$cdom));
my $image = qq{<img name="Send_message" alt="Send message symbol" src="/res/adm/pages/mail-message-new.png" border="none" align="middle" />};	my $image = qq{<img name="Send_message" alt="Send message symbol" src="/res/adm/pages/mail-message-new.png" border="none" align="middle" />};
$s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom);	return &Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper($linktext,$cnum,$cdom);
return $s;
}	}

sub print_template {	sub print_template {