--- loncom/interface/loncommunicate.pm	2001/08/16 01:42:07	1.5
+++ 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,8/15 Gerd Kortemeyer
+# 3/1,2/6,7/27,8/3,8/15,
+# 11/5/01 Gerd Kortemeyer
 #
 package Apache::loncommunicate;
 
@@ -36,9 +37,11 @@ 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(