--- loncom/interface/loncommunicate.pm	2001/08/03 18:09:39	1.4
+++ loncom/interface/loncommunicate.pm	2001/08/16 01:42:07	1.5
@@ -9,7 +9,7 @@
 #
 # 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 Gerd Kortemeyer
 #
 package Apache::loncommunicate;
 
@@ -43,7 +43,9 @@ ENDDOCUMENT
         (&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>