--- loncom/interface/loncommunicate.pm 2005/02/17 08:29:42 1.27
+++ loncom/interface/loncommunicate.pm 2006/03/19 22:22:49 1.30
@@ -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.30 2006/03/19 22:22:49 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,11 @@ sub menu {
$lt{'smu'}
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'}) ||
+ &Apache::lonnet::allowed('srm',$env{'request.course.id'}.'/'.$env{'request.course.sec'})
+ )) {
$r->print(<|
$lt{'bmc'}$help{'Course_Broadcast_Message'}
@@ -93,13 +97,6 @@ sub handler {
#
# Start document
#
- my $html=&Apache::lonxml::xmlbegin();
- $r->print(<
-The LearningOnline Network with CAPA
-
-END
# ----------------------------------------------------------------- Breadcrumbs
&Apache::lonhtmlcommon::clear_breadcrumbs();
@@ -112,6 +109,7 @@ END
&Apache::lonmsg::header($r);
&menu($r);
&Apache::lonmsg::disall($r,'new');
+ $r->print(&Apache::loncommon::end_page());
return OK;
}
|