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; |
} |
} |