--- loncom/interface/loncommunicate.pm 2005/05/20 17:00:40 1.29
+++ 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.29 2005/05/20 17:00:40 albertel Exp $
+# $Id: loncommunicate.pm,v 1.33 2006/04/25 17:08:27 albertel 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' => 'Add or Edit Blog Entries'
);
my %help=();
@@ -65,6 +66,9 @@ sub menu {
|
$lt{'smu'}
|
+|
+ $lt{'blog'}
+ | |
END
if (($env{'request.course.id'}) &&
(
@@ -97,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();
@@ -113,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;
}