--- loncom/interface/loncommunicate.pm	2001/02/06 16:51:24	1.2
+++ loncom/interface/loncommunicate.pm	2001/07/28 03:54:05	1.3
@@ -9,7 +9,7 @@
 #
 # 3/1/1 Gerd Kortemeyer)
 #
-# 3/1,2/6 Gerd Kortemeyer
+# 3/1,2/6,7/27 Gerd Kortemeyer
 #
 package Apache::loncommunicate;
 
@@ -52,7 +52,14 @@ ENDDOCUMENT
                                         $ENV{'user.name'}.':nohist_email',
                                         $ENV{'user.home'}));
     $r->print(
-           '</table><p><a href="/adm/email/">All Messages</a></body></html>');
+   '</table><p><a href="/adm/email/">All Messages</a>'.
+   '<p><a href="/adm/email?compose=individual">Send message to user(s)</a>');
+    if (($ENV{'request.course.id'}) && 
+        (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
+       $r->print(
+    '<p><a href="/adm/email?compose=group">Broadcast message to course</a>');
+    }
+    $r->print('</body></html>');
     return OK;
 }