--- loncom/interface/loncommunicate.pm	2004/11/09 16:29:32	1.24
+++ loncom/interface/loncommunicate.pm	2004/11/17 21:05:26	1.26
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Communicate
 #
-# $Id: loncommunicate.pm,v 1.24 2004/11/09 16:29:32 www Exp $
+# $Id: loncommunicate.pm,v 1.26 2004/11/17 21:05:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -54,16 +54,14 @@ sub menu {
 	     'Course_Broadcast_Message') {
 	$help{$_}=&Apache::loncommon::help_open_topic($_);
     }
-    my $folderlist=&Apache::lonmsg::folderlist();
 # ------------------------------------------------------------------------ Menu
    $r->print(<<END);
-$folderlist
-<form method="post" action="/adm/email">
+<table cellspacing="10" cellpadding="2">
+<tr><td bgcolor="#FFFFAA"><form method="post" action="/adm/email">
 <input type="submit" value="$lt{'mnf'}" />
 <input type="text" size="15" name="newfolder" value="" />
-</form>
-<table cellspacing="10" cellpadding="2">
-<tr><td bgcolor="#FFFFAA">
+</form></td>
+<td bgcolor="#FFFFAA">
   <b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b>
 </td></tr>
 END
@@ -72,14 +70,14 @@ END
         $r->print(<<END);
 <tr><td bgcolor="#FFFFAA">
     <b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'}
-</td></tr>
-<tr><td bgcolor="#FFFFAA">
+</td>
+<td bgcolor="#FFFFAA">
   <b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b>
 </td></tr>
 <tr><td bgcolor="#FFFFAA">
 <b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'}
-</td></tr>
-<tr><td bgcolor="#FFFFAA">
+</td>
+<td bgcolor="#FFFFAA">
   <b><a href="/adm/email?block=display">$lt{'cbs'}</a>
 </td></tr>
 END
@@ -112,7 +110,7 @@ END
 # ---------------------------------------------------------------------- Header
     &Apache::lonmsg::header($r);
     &menu($r);
-    &Apache::lonmsg::disnew($r);
+    &Apache::lonmsg::disall($r,'new');
     return OK;
 }