version 1.11, 2008/12/17 10:57:01
|
version 1.12, 2008/12/17 13:00:36
|
Line 105 sub end_ContentBox{
|
Line 105 sub end_ContentBox{
|
|
|
sub send_message{ |
sub send_message{ |
my ($r,$cnum,$cdom) = @_; |
my ($r,$cnum,$cdom) = @_; |
|
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(qq{<img name="sendMessage" src="/res/adm/pages/com.png"},$cnum,$cdom).' '.&mt('Send me a message')); |
$r->print(&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&mt('Send me a message')); |
$r->print('</div>'); |
$r->print('</div>'); |
} |
} |
|
|