loncom/interface/lontemplate.pm - diff

Return to lontemplate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2009/04/15 10:49:30	version 1.32, 2009/05/07 11:12:47
Line 111 sub end_ContentBox{	Line 111 sub end_ContentBox{
sub send_message{	sub send_message{
my ($r,$cnum,$cdom) = @_;	my ($r,$cnum,$cdom) = @_;
my $s;	my $s;
my $image = qq{<img name="Send message" src="/res/adm/pages/com.png" border="none" align="middle" />};	my $image = qq{<img name="Send message" 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);	$s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom);
return $s;	return $s;
}	}