--- loncom/interface/lonmsgdisplay.pm	2006/07/19 13:09:32	1.39
+++ loncom/interface/lonmsgdisplay.pm	2006/10/04 20:26:48	1.41
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.39 2006/07/19 13:09:32 raeburn Exp $
+# $Id: lonmsgdisplay.pm,v 1.41 2006/10/04 20:26:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -270,12 +270,14 @@ sub discourse {
 	    &Apache::lonselstudent::get_people_in_class($env{'request.course.sec'});
     unshift @$current_members, (@$course_personnel);
     my %defaultUsers;
+    
+    $result .= '<input type="hidden" name="sendmode" value="group" />'."\n";
 
-    $result = &Apache::lonselstudent::render_student_list($current_members,
-							  "compemail",
-							  "current",
-							  \%defaultUsers,
-							  1,"selectedusers",1);
+    $result .= &Apache::lonselstudent::render_student_list($current_members,
+							   "compemail",
+							   "current",
+							   \%defaultUsers,
+							   1,"selectedusers",1);
 
     $result .= &Apache::lonselstudent::render_student_list($expired_members,
 							   "compemail",
@@ -1788,7 +1790,7 @@ sub header {
     
     my $extra = &Apache::loncommon::studentbrowser_javascript();
     if ($baseurl) {
-	$extra .= "<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />";
+	$extra .= "<base href=\"".&Apache::lonnet::absolute_url()."/$baseurl\" />";
     }
     $r->print(&Apache::loncommon::start_page('Communication and Messages',
  					$extra));