version 1.28, 2005/04/07 06:56:23
|
version 1.48, 2022/01/18 17:33:13
|
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 %lt=&Apache::lonlocal::texthash( |
my $crstype = 'course'; |
'mnf' => 'Make New Folder', |
my $usertype = 'student'; |
'vcm' => 'View Critical Messages', |
if (defined($env{'course.'.$env{'request.course.id'}.'.type'})) { |
'smu' => 'Send Message to User(s)', |
$crstype = $env{'course.'.$env{'request.course.id'}.'.type'}; |
'bmc' => 'Broadcast Message to Course', |
if ($crstype eq 'Community') { |
'dmu' => 'Distribute Messages from Uploaded File to Course', |
$usertype = 'member'; |
'unr' => |
} |
'User Notes, Records of Face-to-Face Discussions, and Critical Messages', |
|
|
|
'cbs' => 'Configure blocking of student communication during exams' |
|
|
|
); |
|
my %help=(); |
|
foreach ('Course_Face_To_Face_Records,Course_Critical_Message', |
|
'Course_Broadcast_Message') { |
|
$help{$_}=&Apache::loncommon::help_open_topic($_); |
|
} |
} |
|
|
|
my $clientip = &Apache::lonnet::get_requestor_ip($r); |
|
my %setters; |
|
my ($startblock,$endblock,$triggerblock,$by_ip,$blockdom) = |
|
&Apache::loncommon::blockcheck(\%setters,'com',$clientip); |
|
if ($by_ip) { |
|
my $showdom = &Apache::lonnet::domain($blockdom); |
|
if ($showdom eq '') { |
|
$showdom = $blockdom; |
|
} |
|
$r->print('<p class="LC_warning">'. |
|
&mt('Sending of LON-CAPA messages is blocked for your current IP address: [_1].',$clientip).'</p>'. |
|
'<ul><li>'.&mt('Note: communication is being blocked for certain IP address(es).'). |
|
'</li><li>'. |
|
&mt('This restriction was set by an administrator in the [_1] LON-CAPA domain.',$showdom). |
|
'</li></ul><br />'); |
|
} |
|
|
# ------------------------------------------------------------------------ Menu |
# ------------------------------------------------------------------------ Menu |
$r->print(<<END); |
my ($can_srm,$can_dcm,$can_dff); |
<table cellspacing="10" cellpadding="2"> |
if ($env{'request.course.id'}) { |
<tr><td bgcolor="#FFFFAA"><form method="post" action="/adm/email"> |
if ((&Apache::lonnet::allowed('srm',$env{'request.course.id'})) || |
<input type="submit" value="$lt{'mnf'}" /> |
(&Apache::lonnet::allowed('srm',$env{'request.course.id'}.'/'. |
<input type="text" size="15" name="newfolder" value="" /> |
$env{'request.course.sec'}))) { |
</form></td> |
$can_srm = 1; |
<td bgcolor="#FFFFAA"> |
} |
<b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b> |
if ((&Apache::lonnet::allowed('dcm',$env{'request.course.id'})) || |
</td></tr> |
(&Apache::lonnet::allowed('dcm',$env{'request.course.id'}.'/'. |
END |
$env{'request.course.sec'}))) { |
if (($env{'request.course.id'}) && |
$can_dcm = 1; |
(&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) { |
} |
$r->print(<<END); |
if ((&Apache::lonnet::allowed('dff',$env{'request.course.id'})) || |
<tr><td bgcolor="#FFFFAA"> |
(&Apache::lonnet::allowed('dff',$env{'request.course.id'}.'/'. |
<b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'} |
$env{'request.course.sec'}))) { |
</td> |
$can_dff = 1; |
<td bgcolor="#FFFFAA"> |
} |
<b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b> |
} |
</td></tr> |
|
<tr><td bgcolor="#FFFFAA"> |
my @reports; |
<b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'} |
unless ($by_ip) { |
</td> |
@reports = ( |
<td bgcolor="#FFFFAA"> |
{categorytitle => 'Send Messages', |
<b><a href="/adm/email?block=display">$lt{'cbs'}</a> |
items => [ |
</td></tr> |
{url => '/adm/email?compose=individual', |
END |
permission => 'F', |
|
icon => 'mail-message-new.png', |
|
linktext => 'New Message', |
|
linktitle => 'Send a message to users.'}, |
|
|
|
{url => '/adm/email?compose=group', |
|
permission => "$can_srm", |
|
icon => 'mail-reply-all.png', |
|
linktext => 'New Broadcast Message', |
|
help => 'Course_Broadcast_Message', |
|
linktitle => "Send a broadcast message to members of this $crstype and/or other users."}, |
|
|
|
{url => '/adm/email?compose=upload', |
|
permission => "$can_srm", |
|
icon => 'fromfile.png', |
|
linktext => 'New Messages from File', |
|
linktitle => 'Create a message from file and send to users.'}, |
|
]}, |
|
); |
|
} |
|
|
|
if ($can_dff || $can_dcm ){ |
|
push(@reports,{categorytitle => 'Message Administration', |
|
items => [ |
|
{url => '/adm/email?recordftf=query', |
|
permission => "$can_dff", |
|
icon => 'messalog.png', |
|
linktext => 'Message Log for Selected Users', |
|
help => 'Course_Face_To_Face_Records,Course_Critical_Message', |
|
linktitle => "User notes, records of face-to-face discussions, critical messages, broadcast messages and archived messages in $crstype."}, |
|
|
|
{url => '/adm/setblock?caller=email', |
|
permission => "$can_dcm", |
|
icon => 'comblock.png', |
|
linktext => 'Communication Blocking', |
|
linktitle => "Blocking of $usertype communication during exams."}, |
|
]}); |
|
} |
|
if (@reports) { |
|
$r->print(&Apache::lonhtmlcommon::generate_menu(@reports)); |
} |
} |
$r->print('</table>'); |
return; |
} |
} |
|
|
sub handler { |
sub handler { |
Line 94 sub handler {
|
Line 142 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 151 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); |
|
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|