--- loncom/interface/loncommunicate.pm	2005/02/17 08:29:42	1.27
+++ loncom/interface/loncommunicate.pm	2005/04/07 06:56:23	1.28
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Communicate
 #
-# $Id: loncommunicate.pm,v 1.27 2005/02/17 08:29:42 albertel Exp $
+# $Id: loncommunicate.pm,v 1.28 2005/04/07 06:56:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,6 +34,7 @@ use Apache::Constants qw(:common);
 use Apache::lonmsg();
 use Apache::loncommon;
 use Apache::lonlocal;
+use Apache::lonnet;
 
 sub menu {
     my $r=shift;
@@ -65,8 +66,8 @@ sub menu {
   <b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b>
 </td></tr>
 END
-    if (($ENV{'request.course.id'}) && 
-        (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
+    if (($env{'request.course.id'}) && 
+        (&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) {
         $r->print(<<END);
 <tr><td bgcolor="#FFFFAA">
     <b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'}