version 1.30, 2006/03/19 22:22:49
|
version 1.33, 2006/04/25 17:08:27
|
Line 31 package Apache::loncommunicate;
|
Line 31 package Apache::loncommunicate;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonmsg(); |
use Apache::lonmsgdisplay(); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
Line 47 sub menu {
|
Line 47 sub menu {
|
'unr' => |
'unr' => |
'User Notes, Records of Face-to-Face Discussions, and Critical Messages', |
'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=(); |
my %help=(); |
Line 65 sub menu {
|
Line 66 sub menu {
|
<td bgcolor="#FFFFAA"> |
<td bgcolor="#FFFFAA"> |
<b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b> |
<b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b> |
</td></tr> |
</td></tr> |
|
<tr><td bgcolor="#FFFFAA"> |
|
<b><a href="/adm/$env{'user.domain'}/$env{'user.name'}/_rss.html">$lt{'blog'}</a></b> |
|
</td><td></td></tr> |
END |
END |
if (($env{'request.course.id'}) && |
if (($env{'request.course.id'}) && |
( |
( |
Line 106 sub handler {
|
Line 110 sub handler {
|
faq=>12,bug=>'Communication Tools',}); |
faq=>12,bug=>'Communication Tools',}); |
|
|
# ---------------------------------------------------------------------- Header |
# ---------------------------------------------------------------------- Header |
&Apache::lonmsg::header($r); |
&Apache::lonmsgdisplay::header($r); |
&menu($r); |
&menu($r); |
&Apache::lonmsg::disall($r,'new'); |
&Apache::lonmsgdisplay::disall($r,'new'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |