--- loncom/interface/loncommunicate.pm 2004/11/17 21:05:26 1.26
+++ 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.26 2004/11/17 21:05:26 www 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 {
$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'}))) {
$r->print(<|
$lt{'bmc'}$help{'Course_Broadcast_Message'}
@@ -93,8 +94,9 @@ sub handler {
#
# Start document
#
+ my $html=&Apache::lonxml::xmlbegin();
$r->print(<
+$html
The LearningOnline Network with CAPA
|