--- loncom/interface/loncommunicate.pm	2001/08/03 18:09:39	1.4
+++ 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,7/27,8/3 Gerd Kortemeyer
+# 3/1,2/6,7/27,8/3,8/15,
+# 11/5/01 Gerd Kortemeyer
 #
 package Apache::loncommunicate;
 
@@ -36,14 +37,18 @@ sub handler {
 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?compose=individual">Send message to user(s)</a>'.
-     $en);
+   $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);
+  '<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>