--- loncom/interface/loncommunicate.pm 2005/04/07 06:56:23 1.28
+++ loncom/interface/loncommunicate.pm 2006/04/13 17:57:17 1.32
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Communicate
#
-# $Id: loncommunicate.pm,v 1.28 2005/04/07 06:56:23 albertel Exp $
+# $Id: loncommunicate.pm,v 1.32 2006/04/13 17:57:17 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -31,7 +31,7 @@ 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;
@@ -47,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' => 'Edit to my Blogs'
);
my %help=();
@@ -65,9 +66,15 @@ sub menu {
$lt{'smu'}
|
+
+ $lt{'blog'}
+ | |
END
if (($env{'request.course.id'}) &&
- (&Apache::lonnet::allowed('srm',$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'}
@@ -94,13 +101,6 @@ sub handler {
#
# Start document
#
- my $html=&Apache::lonxml::xmlbegin();
- $r->print(<
-The LearningOnline Network with CAPA
-
-END
# ----------------------------------------------------------------- Breadcrumbs
&Apache::lonhtmlcommon::clear_breadcrumbs();
@@ -110,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;
}
|