[LON-CAPA-cvs] cvs: loncom /interface lontemplate.pm

[raeburn]

raeburn		Fri Oct 16 13:47:40 2009 EDT

  Modified files:              
    /loncom/interface	lontemplate.pm 
  Log:
  - Bug 6083.
  
  
Index: loncom/interface/lontemplate.pm
diff -u loncom/interface/lontemplate.pm:1.38 loncom/interface/lontemplate.pm:1.39
--- loncom/interface/lontemplate.pm:1.38	Mon Oct 12 08:01:08 2009
+++ loncom/interface/lontemplate.pm	Fri Oct 16 13:47:40 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "Template" Functions to generate html output
 #
-# $Id: lontemplate.pm,v 1.38 2009/10/12 08:01:08 amueller Exp $
+# $Id: lontemplate.pm,v 1.39 2009/10/16 13:47:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -91,10 +91,10 @@
 
 sub send_message {
 	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" />};
-	$s=&Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom);
-	return $s;
+	return &Apache::loncommon::messagewrapper($image,$cnum,$cdom).' '.&Apache::loncommon::messagewrapper($linktext,$cnum,$cdom);
 }
 
 sub print_template {