--- loncom/interface/loncommunicate.pm 2004/11/17 21:05:26 1.26
+++ loncom/interface/loncommunicate.pm 2006/04/25 17:08:27 1.33
@@ -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.33 2006/04/25 17:08:27 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -31,9 +31,10 @@ package Apache::loncommunicate;
use strict;
use Apache::Constants qw(:common);
-use Apache::lonmsg();
+use Apache::lonmsgdisplay();
use Apache::loncommon;
use Apache::lonlocal;
+use Apache::lonnet;
sub menu {
my $r=shift;
@@ -46,7 +47,8 @@ sub menu {
'unr' =>
'User Notes, Records of Face-to-Face Discussions, and Critical Messages',
-'cbs' => 'Configure blocking of student communication during exams'
+'cbs' => 'Configure Blocking of Student Communication during Exams',
+'blog' => 'Add or Edit Blog Entries'
);
my %help=();
@@ -64,9 +66,15 @@ sub menu {
$lt{'smu'}
|
+
+ $lt{'blog'}
+ | |
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,12 +101,6 @@ sub handler {
#
# Start document
#
- $r->print(<
-
-The LearningOnline Network with CAPA
-
-END
# ----------------------------------------------------------------- Breadcrumbs
&Apache::lonhtmlcommon::clear_breadcrumbs();
@@ -108,9 +110,10 @@ END
faq=>12,bug=>'Communication Tools',});
# ---------------------------------------------------------------------- Header
- &Apache::lonmsg::header($r);
+ &Apache::lonmsgdisplay::header($r);
&menu($r);
- &Apache::lonmsg::disall($r,'new');
+ &Apache::lonmsgdisplay::disall($r,'new');
+ $r->print(&Apache::loncommon::end_page());
return OK;
}
|