version 1.28, 2005/04/07 06:56:23
|
version 1.34, 2006/05/30 20:09:25
|
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; |
|
|
sub menu { |
sub menu { |
my $r=shift; |
my $r=shift; |
|
my $crstype = 'Course'; |
|
my $usertype = 'Student'; |
|
if (defined($env{'course.'.$env{'request.course.id'}.'.type'})) { |
|
$crstype = $env{'course.'.$env{'request.course.id'}.'.type'}; |
|
if ($crstype eq 'Group') { |
|
$usertype = 'Member'; |
|
} |
|
} |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'mnf' => 'Make New Folder', |
'mnf' => 'Make New Folder', |
'vcm' => 'View Critical Messages', |
'vcm' => 'View Critical Messages', |
'smu' => 'Send Message to User(s)', |
'smu' => 'Send Message to User(s)', |
'bmc' => 'Broadcast Message to Course', |
'bmc' => "Broadcast Message to $crstype", |
'dmu' => 'Distribute Messages from Uploaded File to Course', |
'dmu' => "Distribute Messages from Uploaded File to $crstype", |
'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 $usertype Communication during Exams", |
|
'blog' => 'Add or Edit Blog Entries' |
|
|
); |
); |
my %help=(); |
my %help=(); |
Line 65 sub menu {
|
Line 74 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'}) && |
(&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(<<END); |
$r->print(<<END); |
<tr><td bgcolor="#FFFFAA"> |
<tr><td bgcolor="#FFFFAA"> |
<b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'} |
<b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'} |
Line 94 sub handler {
|
Line 109 sub handler {
|
# |
# |
# Start document |
# Start document |
# |
# |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print(<<END); |
|
$html |
|
<head> |
|
<title>The LearningOnline Network with CAPA</title> |
|
</head> |
|
END |
|
|
|
# ----------------------------------------------------------------- Breadcrumbs |
# ----------------------------------------------------------------- Breadcrumbs |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
Line 110 END
|
Line 118 END
|
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()); |
return OK; |
return OK; |
} |
} |
|
|