version 1.21, 2004/03/26 19:35:59
|
version 1.28, 2005/04/07 06:56:23
|
Line 34 use Apache::Constants qw(:common);
|
Line 34 use Apache::Constants qw(:common);
|
use Apache::lonmsg(); |
use Apache::lonmsg(); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonnet; |
|
|
sub menu { |
sub menu { |
my $r=shift; |
my $r=shift; |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'vam' => 'View All Messages', |
'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 Course', |
'dmu' => 'Distribute Messages from Uploaded File to Course', |
'dmu' => 'Distribute Messages from Uploaded File to Course', |
'unr' => |
'unr' => |
'User Notes, Records of Face-to-Face Discussions, and Critical Messages', |
'User Notes, Records of Face-to-Face Discussions, and Critical Messages', |
'nm' => 'New Messages', |
|
'su' => 'Subject', |
'cbs' => 'Configure blocking of student communication during exams' |
'da' => 'Date', |
|
'us' => 'Username', |
|
'op' => 'Open', |
|
'do' => 'Domain' |
|
); |
); |
my %help=(); |
my %help=(); |
foreach ('Course_Face_To_Face_Records,Course_Critical_Message', |
foreach ('Course_Face_To_Face_Records,Course_Critical_Message', |
Line 60 sub menu {
|
Line 58 sub menu {
|
# ------------------------------------------------------------------------ Menu |
# ------------------------------------------------------------------------ Menu |
$r->print(<<END); |
$r->print(<<END); |
<table cellspacing="10" cellpadding="2"> |
<table cellspacing="10" cellpadding="2"> |
<tr><td bgcolor="#FFFFAA"> |
<tr><td bgcolor="#FFFFAA"><form method="post" action="/adm/email"> |
<b><a href="/adm/email/">$lt{'vam'}</a></b> |
<input type="submit" value="$lt{'mnf'}" /> |
</td></tr> |
<input type="text" size="15" name="newfolder" value="" /> |
<tr><td bgcolor="#FFFFAA"> |
</form></td> |
<b><a href="/adm/email?critical=display">$lt{'vcm'}</a></b> |
<td bgcolor="#FFFFAA"> |
</td></tr> |
|
<tr><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> |
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'}))) { |
$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'} |
</td></tr> |
</td> |
<tr><td bgcolor="#FFFFAA"> |
<td bgcolor="#FFFFAA"> |
<b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b> |
<b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b> |
</td></tr> |
</td></tr> |
<tr><td bgcolor="#FFFFAA"> |
<tr><td bgcolor="#FFFFAA"> |
<b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'} |
<b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'} |
|
</td> |
|
<td bgcolor="#FFFFAA"> |
|
<b><a href="/adm/email?block=display">$lt{'cbs'}</a> |
</td></tr> |
</td></tr> |
|
|
END |
END |
} |
} |
$r->print('</table>'); |
$r->print('</table>'); |
my @msgids = sort split(/\&/,&Apache::lonnet::reply |
|
('keys:'.$ENV{'user.domain'}.':'. |
|
$ENV{'user.name'}.':nohist_email', |
|
$ENV{'user.home'})); |
|
my @newmsgs; |
|
foreach (@msgids) { |
|
my ($sendtime,$shortsubj,$fromname,$fromdom,$status)= |
|
&Apache::lonmsg::unpackmsgid($_); |
|
if (defined($sendtime) && $sendtime!~/error/) { |
|
$sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
|
if ($status eq 'new') { |
|
push @newmsgs, { |
|
msgid => $_, |
|
sendtime => $sendtime, |
|
shortsub => &Apache::lonnet::unescape($shortsubj), |
|
from => $fromname, |
|
fromdom => $fromdom |
|
} |
|
} |
|
} |
|
} |
|
if ($#newmsgs >= 0) { |
|
$r->print(<<TABLEHEAD); |
|
<h2>$lt{'nm'}</h2> |
|
<table border=2><tr><th> </th> |
|
<th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th></tr> |
|
TABLEHEAD |
|
foreach my $msg (@newmsgs) { |
|
$r->print(<<"ENDLINK"); |
|
<tr bgcolor="#FFBB77"> |
|
<td><a href="/adm/email?display=$msg->{'msgid'}">$lt{'op'}</a></td> |
|
ENDLINK |
|
foreach ('sendtime','from','fromdom','shortsub') { |
|
$r->print("<td>$msg->{$_}</td>"); |
|
} |
|
$r->print("</td></tr>"); |
|
} |
|
$r->print('</table></body></html>'); |
|
} else { |
|
$r->print("<h3>".&mt('You have no unread messages')."</h3>"); |
|
} |
|
} |
} |
|
|
sub handler { |
sub handler { |
Line 137 sub handler {
|
Line 94 sub handler {
|
# |
# |
# Start document |
# Start document |
# |
# |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<END); |
$r->print(<<END); |
<html> |
$html |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
</head> |
</head> |
Line 154 END
|
Line 112 END
|
# ---------------------------------------------------------------------- Header |
# ---------------------------------------------------------------------- Header |
&Apache::lonmsg::header($r); |
&Apache::lonmsg::header($r); |
&menu($r); |
&menu($r); |
|
&Apache::lonmsg::disall($r,'new'); |
return OK; |
return OK; |
} |
} |
|
|