--- loncom/interface/loncommunicate.pm	2001/02/06 16:51:24	1.2
+++ loncom/interface/loncommunicate.pm	2001/11/05 20:36:43	1.6
@@ -9,7 +9,8 @@
 #
 # 3/1/1 Gerd Kortemeyer)
 #
-# 3/1,2/6 Gerd Kortemeyer
+# 3/1,2/6,7/27,8/3,8/15,
+# 11/5/01 Gerd Kortemeyer
 #
 package Apache::loncommunicate;
 
@@ -33,10 +34,27 @@ sub handler {
 <body bgcolor="#FFFFFF">
 <img align=right src=/adm/lonIcons/lonlogos.gif>
 <h1>Communicate</h1>
+ENDDOCUMENT
+    my $st='<table><tr><td bgcolor="#FFFFAA"><b>';
+    my $en='</b></td><tr></table>';
+   $r->print('<p>'.
+ $st.'<a href="/adm/email/">All Messages</a>'.$en.'<p>'.
+ $st.'<a href="/adm/email?critical=display">Critical Messages</a>'.$en.'<p>'.
+ $st.'<a href="/adm/email?compose=individual">Send message to user(s)</a>'.$en
+     );
+    if (($ENV{'request.course.id'}) && 
+        (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
+       $r->print(
+    '<p>'.$st.
+  '<a href="/adm/email?compose=group">Broadcast message to course</a>'.$en.
+    '<p>'.$st.
+  '<a href="/adm/email?compose=upload">Upload messages to course</a>'.$en);
+    }
+    $r->print(<<ENDTABLE);
 <h3>New Messages</h3>
 <table border=2><tr><th>&nbsp</th>
 <th>Date</th><th>Username</th><th>Domain</th><th>Subject</th></tr>
-ENDDOCUMENT
+ENDTABLE
     map {
         my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
 	    &Apache::lonmsg::unpackmsgid($_);
@@ -51,8 +69,7 @@ ENDDOCUMENT
 					$ENV{'user.domain'}.':'.
                                         $ENV{'user.name'}.':nohist_email',
                                         $ENV{'user.home'}));
-    $r->print(
-           '</table><p><a href="/adm/email/">All Messages</a></body></html>');
+    $r->print('</table></body></html>');
     return OK;
 }
 
