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

[ehlerst]

ehlerst		Wed Dec 17 10:57:01 2008 EDT

  Modified files:              
    /loncom/interface	lontemplate.pm 
  Log:
  added an image link in the send_message function.
  
  
Index: loncom/interface/lontemplate.pm
diff -u loncom/interface/lontemplate.pm:1.10 loncom/interface/lontemplate.pm:1.11
--- loncom/interface/lontemplate.pm:1.10	Wed Dec 17 00:44:53 2008
+++ loncom/interface/lontemplate.pm	Wed Dec 17 10:57:01 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "Template" Functions to generate html output
 #
-# $Id: lontemplate.pm,v 1.10 2008/12/17 00:44:53 ehlerst Exp $
+# $Id: lontemplate.pm,v 1.11 2008/12/17 10:57:01 ehlerst Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -105,10 +105,9 @@
 
 sub send_message{
 	my ($r,$cnum,$cdom) = @_;
-	$r->print('<div class="ContentBoxSpecial">');
-	$r->print('<h4 class="hcell">'.&mt('Contact').'</h4>');
-        $r->print('<blockquote>'.(&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom)).'</blockquote>');
-        $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('</div>');
 }
 
 sub print_template