# The LearningOnline Network with CAPA
# Routines for messaging display
#
# $Id: lonmsgdisplay.pm,v 1.56.2.1 2006/12/23 06:22:36 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#
package Apache::lonmsgdisplay;
=pod
=head1 NAME
Apache::lonmsg: supports internal messaging
=head1 SYNOPSIS
lonmsg provides routines for sending messages, receiving messages, and
a handler to allow users to read, send, and delete messages.
=head1 OVERVIEW
=head2 Messaging Overview
X ' . $crithelp .
' '.
'' . $crithelp .
'
'.
&mt('_location_in_mail_folder',$msgstatus,$statushash{$msgstatus},
$first,$finish,$total).'';
}
# =============================================================== Status Change
sub statuschange {
my ($msgid,$newstatus,$folder)=@_;
my $suffix=&Apache::lonmsg::foldersuffix($folder);
my %status=&Apache::lonnet::get('email_status'.$suffix,[$msgid]);
if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; }
unless ($status{$msgid}) { $status{$msgid}='new'; }
unless (($status{$msgid} eq 'replied') ||
($status{$msgid} eq 'forwarded')) {
&Apache::lonnet::put('email_status'.$suffix,{$msgid => $newstatus});
}
if (($newstatus eq 'deleted') || ($newstatus eq 'new')) {
&Apache::lonnet::put('email_status'.$suffix,{$msgid => $newstatus});
}
if ($newstatus eq 'deleted') {
return &movemsg($msgid,$folder,'trash');
}
return ;
}
# ============================================================= Make new folder
sub makefolder {
my ($newfolder) = @_;
my %permfolders = &get_permanent_folders();
my %userfolders = &Apache::lonmsg::get_user_folders();
my ($outcome,$warning);
if (defined($userfolders{$newfolder})) {
return &mt('The folder name: "[_1]" is already in use for an existing folder.',$newfolder);
}
foreach my $perm (keys(%permfolders)) {
if ($permfolders{$perm} eq $newfolder) {
return &mt('The folder name: "[_1]" is already used for one of the folders automatically generated by the system.',$newfolder);
}
}
if (&get_msgfolder_lock() eq 'ok') {
my %counter_hash = &Apache::lonnet::get('email_folders',["\0".'idcount']);
my $lastcount = $counter_hash{"\0".'idcount'};
my $folder_id = $lastcount + 1;
while (defined($userfolders{$folder_id})) {
$folder_id ++;
}
my %folderinfo = ( id => $folder_id,
created => time, );
$outcome =
&Apache::lonnet::put('email_folders',{$newfolder => \%folderinfo,
"\0".'idcount' => $folder_id});
my $releaseresult = &release_msgfolder_lock();
if ($releaseresult ne 'ok') {
$warning = $releaseresult;
}
} else {
$outcome =
&mt('Error - could not obtain lock on email folders record.');
}
return ($outcome,$warning);
}
# ============================================================= Delete folder
sub deletefolder {
my ($folder)=@_;
my %permfolders = &get_permanent_folders();
if (defined($permfolders{$folder})) {
return &mt('The folder "[_1]" may not be deleted',$folder);
}
my %userfolders = &Apache::lonmsg::get_user_folders();
if (!defined($userfolders{$folder})) {
return &mt('The folder "[_1]" does not exist so deletion is not required.',
$folder);
}
# check folder is empty;
my $suffix=&Apache::lonmsg::foldersuffix($folder);
my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);
if (@messages > 0) {
return &mt('The folder "[_1]" contains messages so it may not be deleted.',$folder).
'
'.
&mt('Delete or move the messages to a different folder first.');
}
my $delresult = &Apache::lonnet::del('email_folders',[$folder]);
return $delresult;
}
sub renamefolder {
my ($folder) = @_;
my $newname = $env{'form.renamed'};
my %permfolders = &get_permanent_folders();
if ($env{'form.renamed'} eq '') {
return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is an invalid name.',$folder,$newname);
}
if (defined($permfolders{$newname})) {
return &mt('The folder "[_1]" may not be renamed to "[_2]" as the new name you requested is reserved for folders provided automatically by the system.',$folder,$newname);
}
my %userfolders = &Apache::lonmsg::get_user_folders();
if (defined($userfolders{$newname})) {
return &mt('The folder "[_1]" may not be renamed to "[_2]" because the new name you requested is already being used for an existing folder.',$folder,$newname);
}
if (!defined($userfolders{$folder})) {
return &mt('The folder "[_1]" could not be renamed to "[_2]" because the folder does not exist.',$folder,$newname);
}
my %folderinfo;
if (ref($userfolders{$folder}) eq 'HASH') {
%folderinfo = %{$userfolders{$folder}};
} else {
%folderinfo = ( id => $folder,
created => $userfolders{$folder},);
}
my $outcome =
&Apache::lonnet::put('email_folders',{$newname => \%folderinfo});
if ($outcome eq 'ok') {
$outcome = &Apache::lonnet::del('email_folders',[$folder]);
}
return $outcome;
}
sub get_msgfolder_lock {
# get lock for mail folder counter.
my $lockhash = { "\0".'lock_counter' => time, };
my $tries = 0;
my $gotlock = &Apache::lonnet::newput('email_folders',$lockhash);
while (($gotlock ne 'ok') && $tries <3) {
$tries ++;
sleep(1);
$gotlock = &Apache::lonnet::newput('email_folders',$lockhash);
}
return $gotlock;
}
sub release_msgfolder_lock {
# remove lock
my @del_lock = ("\0".'lock_counter');
my $dellockoutcome=&Apache::lonnet::del('email_folders',\@del_lock);
if ($dellockoutcome ne 'ok') {
return ('
'.&mt('Warning: failed to release lock for counter').'
');
} else {
return 'ok';
}
}
# ======================================================== Move between folders
sub movemsg {
my ($msgid,$srcfolder,$trgfolder)=@_;
if ($srcfolder eq 'new') { $srcfolder=''; }
my $srcsuffix=&Apache::lonmsg::foldersuffix($srcfolder);
my $trgsuffix=&Apache::lonmsg::foldersuffix($trgfolder);
if ($srcsuffix eq $trgsuffix) {
return (0,&mt('Message not moved, Attempted to move message to the same folder as it already is in.'));
}
# Copy message
my %message=&Apache::lonnet::get('nohist_email'.$srcsuffix,[$msgid]);
if (!exists($message{$msgid}) || $message{$msgid} eq '') {
if (&Apache::lonnet::error(%message)) {
return (0,&mt('Message not moved, A network error occurred.'));
} else {
return (0,&mt('Message not moved as the message is no longer in the source folder.'));
}
}
my $result =&Apache::lonnet::put('nohist_email'.$trgsuffix,
{$msgid => $message{$msgid}});
if (&Apache::lonnet::error($result)) {
return (0,&mt('Message not moved, A network error occurred.'));
}
# Copy status
unless ($trgfolder eq 'trash') {
my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$msgid]);
# a non-existant status is the mark of an unread msg
if (&Apache::lonnet::error(%status)) {
return (0,&mt('Message copied to new folder but status was not, A network error occurred.'));
}
my $result=&Apache::lonnet::put('email_status'.$trgsuffix,
{$msgid => $status{$msgid}});
if (&Apache::lonnet::error($result)) {
return (0,&mt('Message copied to new folder but status was not, A network error occurred.'));
}
}
# Delete orginals
my $result_del_msg =
&Apache::lonnet::del('nohist_email'.$srcsuffix,[$msgid]);
my $result_del_stat =
&Apache::lonnet::del('email_status'.$srcsuffix,[$msgid]);
if (&Apache::lonnet::error($result_del_msg)) {
return (0,&mt('Message copied, but unable to delete the original from the source folder.'));
}
if (&Apache::lonnet::error($result_del_stat)) {
return (0,&mt('Message copied, but unable to delete the original status from the source folder.'));
}
return (1);
}
# ======================================================= Display a course list
sub discourse {
my $result;
my ($course_personnel,
$current_members,
$expired_members,
$future_members) =
&Apache::lonselstudent::get_people_in_class($env{'request.course.sec'});
unshift @$current_members, (@$course_personnel);
my %defaultUsers;
$result .= ''."\n";
$result .= &Apache::lonselstudent::render_student_list($current_members,
"compemail",
"current",
\%defaultUsers,
1,"selectedusers",1);
$result .= &Apache::lonselstudent::render_student_list($expired_members,
"compemail",
"expired",
\%defaultUsers,
1, "selectedusers",0);
$result .= &Apache::lonselstudent::render_student_list($future_members,
"compemail",
"future",
\%defaultUsers,
1, "selectedusers", 0);
return $result;
}
sub disgroup {
my ($cdom,$cnum,$group,$viewgrps,$editgrps) = @_;
my $result;
# Needs to be in a course
if (!($env{'request.course.fn'})) {
$result = &mt('Error: you must have a course role selected to be able to send a broadcast message to a group in the course.');
return $result;
}
if ($cdom eq '' || $cnum eq '') {
$result = &mt('Error: could not determine domain or number of course');
return $result;
}
my ($memberinfo,$numitems) =
&Apache::longroup::group_memberlist($cdom,$cnum,$group,{},[]);
my @statustypes = ('active');
if ($viewgrps || $editgrps) {
push(@statustypes,('future','previous'));
}
if (keys(%{$memberinfo}) == 0) {
$result = &mt('As this group has no members, there are no '.
'recipients to select.');
return $result;
} else {
$result = &mt('Select message recipients from the group members listed below.
');
my %Sortby = (
active => {},
previous => {},
future => {},
);
my %lt = &Apache::lonlocal::texthash(
'name' => 'Name',
'usnm' => 'Username',
'doma' => 'Domain',
'active' => 'Active Members',
'previous' => 'Former Members',
'future' => 'Future Members',
);
foreach my $user (sort(keys(%{$memberinfo}))) {
my $status = $$memberinfo{$user}{status};
if ($env{'form.'.$status.'.sortby'} eq 'fullname') {
push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);
} elsif ($env{'form.'.$status.'.sortby'} eq 'username') {
push(@{$Sortby{$status}{$$memberinfo{$user}{uname}}},$user);
} elsif ($env{'form.'.$status.'.sortby'} eq 'domain') {
push(@{$Sortby{$status}{$$memberinfo{$user}{udom}}},$user);
} else {
push(@{$Sortby{$status}{$$memberinfo{$user}{fullname}}},$user);
}
}
$result .= &group_check_uncheck();
$result .= ''.
'
';
}
return $result;
}
sub group_check_uncheck {
my $output = qq|
|;
}
sub groupmail_header {
my ($action,$group,$cdom,$cnum) = @_;
my ($description,$refarg);
if (!$cdom || !$cnum) {
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
}
if (exists($env{'form.ref'})) {
$refarg = 'ref='.$env{'form.ref'};
}
if (!$group) {
$group = $env{'form.group'};
}
if ($group eq '') {
return '';
} else {
my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
if (defined($curr_groups{$group})) {
my %groupinfo =
&Apache::longroup::get_group_settings($curr_groups{$group});
$description = &unescape($groupinfo{'description'});
}
}
&Apache::lonhtmlcommon::clear_breadcrumbs();
if ($refarg) {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/coursegroups",
text=>"Groups",
title=>"View course groups"});
}
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg",
text=>"Group: $description",
title=>"Go to group's home page"},
{href=>"/adm/email?compose=group&group=".
"$env{'form.group'}&$refarg",
text=>"Send a Message in a Group",
title=>"Compose Group Email Message"},);
if ($action eq 'sending') {
&Apache::lonhtmlcommon::add_breadcrumb
({text=>"Messages being sent.",
title=>"Messages sent"},);
}
my $groupheader = &Apache::loncommon::start_page('Group Email');
$groupheader .= &Apache::lonhtmlcommon::breadcrumbs
('Group - '.$env{'form.group'}.' Email');
return $groupheader;
}
sub groupmail_sent {
my ($group,$cdom,$cnum) = @_;
my $refarg;
if (exists($env{'form.ref'})) {
$refarg = 'ref='.$env{'form.ref'};
}
my $output .= '';
foreach my $status (@statustypes) {
if (ref($numitems) eq 'HASH') {
if ((defined($$numitems{$status})) && ($$numitems{$status})) {
$result.=' '.
'
'.
&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row();
$result .= "$lt{'name'} ".
"$lt{'usnm'} ".
"$lt{'doma'} ".
&Apache::loncommon::end_data_table_header_row();
foreach my $key (sort(keys(%{$Sortby{$status}}))) {
foreach my $user (@{$Sortby{$status}{$key}}) {
$result .=
&Apache::loncommon::start_data_table_row().
''.
$$memberinfo{$user}{'fullname'}.' '.
''.$$memberinfo{$user}{'uname'}.' '.
''.$$memberinfo{$user}{'udom'}.' '.
&Apache::loncommon::end_data_table_row();
}
}
$result .= &Apache::loncommon::end_data_table();
}
}
$result .= ' ';
}
$result .= '
'.
&mt('Send another group email').''.' '.
''. &mt('Return to group page').'';
return $output;
}
# ==================================================== Display Critical Message
sub discrit {
my $r=shift;
my $header = ''.&mt('Critical Messages').'
'.
'');
}
sub sortedmessages {
my ($blocked,$startblock,$endblock,$numblocked,$folder,$msgstatus) = @_;
my $suffix=&Apache::lonmsg::foldersuffix($folder);
my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix);
#unpack the varibles and repack into temp for sorting
my @temp;
my %descriptions;
my %status_cache =
&Apache::lonnet::get('email_status'.&Apache::lonmsg::foldersuffix($folder),\@messages);
my $get_received;
if ($folder eq 'sent'
&& ($env{'form.sortedby'} =~ m/^(rev)?(user|domain)$/)) {
$get_received = 1;
}
foreach my $msgid (@messages) {
my $esc_msgid=&escape($msgid);
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid)=
&Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef,
\%status_cache);
next if ($msgstatus ne '' && $msgstatus ne $status);
my $description = &get_course_desc($fromcid,\%descriptions);
my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status,
$esc_msgid,$description);
if ($get_received) {
my %message = &Apache::lonnet::get('nohist_email'.$suffix,
[$msgid]);
my %content = &Apache::lonmsg::unpackagemsg($message{$msgid});
push(@temp1,$content{'recuser'},$content{'recdomain'});
}
# Check whether message was sent during blocking period.
if ($sendtime >= $startblock && ($sendtime <= $endblock && $endblock > 0) ) {
$$blocked{$msgid} = 'ON';
$$numblocked ++;
} else {
push @temp ,\@temp1;
}
}
#default sort
@temp = sort {$a->[0] <=> $b->[0]} @temp;
if ($env{'form.sortedby'} eq "date"){
@temp = sort {$a->[0] <=> $b->[0]} @temp;
}
if ($env{'form.sortedby'} eq "revdate"){
@temp = sort {$b->[0] <=> $a->[0]} @temp;
}
if ($env{'form.sortedby'} eq "user"){
if ($get_received) {
@temp = sort {lc($a->[7][0]) cmp lc($b->[7][0])} @temp;
} else {
@temp = sort {lc($a->[2]) cmp lc($b->[2])} @temp;
}
}
if ($env{'form.sortedby'} eq "revuser"){
if ($get_received) {
@temp = sort {lc($b->[7][0]) cmp lc($a->[7][0])} @temp;
} else {
@temp = sort {lc($b->[2]) cmp lc($a->[2])} @temp;
}
}
if ($env{'form.sortedby'} eq "domain"){
if ($get_received) {
@temp = sort {$a->[8][0] cmp $b->[8][0]} @temp;
} else {
@temp = sort {$a->[3] cmp $b->[3]} @temp;
}
}
if ($env{'form.sortedby'} eq "revdomain"){
if ($get_received) {
@temp = sort {$b->[8][0] cmp $a->[8][0]} @temp;
} else {
@temp = sort {$b->[3] cmp $a->[3]} @temp;
}
}
if ($env{'form.sortedby'} eq "subject"){
@temp = sort {lc($a->[1]) cmp lc($b->[1])} @temp;
}
if ($env{'form.sortedby'} eq "revsubject"){
@temp = sort {lc($b->[1]) cmp lc($a->[1])} @temp;
}
if ($env{'form.sortedby'} eq "course"){
@temp = sort {lc($a->[6]) cmp lc($b->[6])} @temp;
}
if ($env{'form.sortedby'} eq "revcourse"){
@temp = sort {lc($b->[6]) cmp lc($a->[6])} @temp;
}
if ($env{'form.sortedby'} eq "status"){
@temp = sort {$a->[4] cmp $b->[4]} @temp;
}
if ($env{'form.sortedby'} eq "revstatus"){
@temp = sort {$b->[4] cmp $a->[4]} @temp;
}
return @temp;
}
sub get_course_desc {
my ($fromcid,$descriptions) = @_;
my $description;
if (!$fromcid) {
return $description;
} else {
if (defined($$descriptions{$fromcid})) {
$description = $$descriptions{$fromcid};
} else {
if (defined($env{'course.'.$fromcid.'.description'})) {
$description = $env{'course.'.$fromcid.'.description'};
} else {
my %courseinfo=&Apache::lonnet::coursedescription($fromcid);
$description = $courseinfo{'description'};
}
$$descriptions{$fromcid} = $description;
}
return $description;
}
}
# ======================================================== Display all messages
sub disall {
my ($r,$folder,$msgstatus)=@_;
$r->print(&folderlist($folder,$msgstatus));
if ($folder eq 'critical') {
&discrit($r);
} else {
&disfolder($r,$folder,$msgstatus);
}
}
# ============================================================ Display a folder
sub disfolder {
my ($r,$folder,$msgstatus)=@_;
my %statushash = &get_msgstatus_types();
my %blocked = ();
my %setters = ();
my $numblocked = 0;
my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');
my %lt = &Apache::lonlocal::texthash(
sede => 'Select a destination folder to which the messages will be moved.',
nome => 'No messages have been selected to apply ths action to.',
chec => 'Check the checkbox for at least one message.',
);
$r->print(<'.&mt('_empty_mail_folder',
$msgstatus,
$statushash{$msgstatus}).'
');
return;
}
unless ($interdis) {
$interdis=20;
}
my $number=int($totalnumber/$interdis);
if ($interdis) {
if ($totalnumber%$interdis == 0) {
$number--;
}
}
if (($startdis<0) || ($startdis>$number)) { $startdis=$number; }
my $firstdis=$interdis*$startdis;
if ($firstdis>$#temp) { $firstdis=$#temp-$interdis+1; }
my $lastdis=$firstdis+$interdis-1;
if ($lastdis>$#temp) { $lastdis=$#temp; }
$r->print(&scrollbuttons($startdis,$number,$firstdis,$lastdis,$totalnumber,$msgstatus));
$r->print('');
if ($numblocked > 0) {
my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
$r->print('
'.
&mt('[quant,_1,message is, messages are] not viewable because display of LON-CAPA messages sent to you by other students between [_2] and [_3] is currently being blocked because of online exams.',$numblocked,$beginblock,$finishblock));
$r->print(&Apache::loncommon::build_block_table($startblock,$endblock,
\%setters));
}
}
# ============================================================== Compose output
sub compout {
my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder,$dismode,
$multiforward)=@_;
my $suffix=&Apache::lonmsg::foldersuffix($folder);
my ($cdom,$cnum,$group,$refarg);
if (exists($env{'form.group'})) {
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
$group = $env{'form.group'};
my $action = 'composing';
$r->print(&groupmail_header($action,$group,$cdom,$cnum));
} elsif ($broadcast eq 'individual') {
&printheader($r,'/adm/email?compose=individual',
'Send a Message');
} elsif ($broadcast) {
&printheader($r,'/adm/email?compose=group',
'Broadcast Message');
} elsif ($forwarding) {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/email?display=".&escape($forwarding),
text=>"Display Message"});
&printheader($r,'/adm/email?forward='.&escape($forwarding),
'Forwarding a Message');
} elsif ($replying) {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/email?display=".&escape($replying),
text=>"Display Message"});
&printheader($r,'/adm/email?replyto='.&escape($replying),
'Replying to a Message');
} elsif ($replycrit) {
$r->print(''.&mt('Replying to a Critical Message').'
');
$replying=$replycrit;
} elsif ($multiforward) {
&Apache::lonhtmlcommon::add_breadcrumb
({href=>"/adm/email?folder=".&escape($folder),
text=>"Display All Messages"});
&printheader($r,'/adm/email?compose=multiforward',
'Forwarding Multiple Messages');
$r->print(&mt('Each of the [quant,_1,message] you checked will be forwarded to the recipient(s) you select below.',$multiforward).'
');
} else {
&printheader($r,'/adm/email?compose=upload',
'Distribute from Uploaded File');
}
my $dispcrit='';
my $dissub='';
my $dismsg='';
my $disbase='';
my $func=&mt('Send New');
my %lt=&Apache::lonlocal::texthash('us' => 'Username',
'do' => 'Domain',
'ad' => 'Additional Recipients',
'sb' => 'Subject',
'ca' => 'Cancel',
'ma' => 'Mail',
'msg' => 'Messages',
'gen' => 'Generate messages from a file',
'gmt' => 'General message text',
'tff' => 'The file format for the uploaded portion of the message is',
'uas' => 'Upload and Send',
);
if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})
|| &Apache::lonnet::allowed('srm',$env{'request.course.id'}.
'/'.$env{'request.course.sec'})) {
my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message");
$dispcrit=
'
';
}
}
}
my $citation=&displayresource(%content);
my ($can_grp_broadcast,$viewgrps,$editgrps);
if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; }
if ($env{'form.text'}) { $dismsg=$env{'form.text'}; }
if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; }
$r->print(
'
Subject:
$lt{'gmt'}:
$lt{'tff'}: ENDBLOCK $r->print('
'."\n". &mt('username1:domain1: text')."\n". &mt('username2:domain2: text')."\n". &mt('username3:domain1: text')."\n". '
'.&mt('The messages will be assembled from all lines with the respective'."\n".'username:domain, and appended to the general message text.'));
$r->print(<
$dispcrit
".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."$lt{'us'}: $selectlink
ENDREC
return $output;
}
sub additional_rec_row {
my ($lt) = @_;
my $output = <<"ENDADD";
$lt{'do'}:
$domform
ENDADD
return $output;
}
sub submit_button_row {
my ($folder,$dismode,$sendtext,$lt) = @_;
my $output = qq|
$lt->{'ad'}:
username:domain,username:domain, ...
|;
return $output;
}
sub msg_subject_row {
my ($dissub,$lt,$subj_size,$extra) = @_;
my $output = ' ';
return $output;
}
sub retrieve_instructor_comments {
my ($user,$domain)=@_;
my $target=$env{'form.grade_target'};
if (! $env{'request.course.id'}) { return; }
if (! &Apache::lonnet::allowed('dff',$env{'request.course.id'})
&& ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
'/'.$env{'request.course.sec'})) {
return;
}
my %records=&Apache::lonnet::dump('nohist_email',
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'},
'%255b'.$user.'%253a'.$domain.'%255d');
my $result='';
foreach my $key (sort(keys(%records))) {
my %content=&Apache::lonmsg::unpackagemsg($records{$key});
next if ($content{'senderdomain'} eq '');
next if ($content{'subject'} !~ /^Record/);
# &Apache::lonfeedback::newline_to_br(\$content{'message'});
$result.='Recorded by '.
$content{'sendername'}.':'.$content{'senderdomain'}."\n";
$result.=
&Apache::lontexconvert::msgtexconverted($content{'message'})."\n";
}
return $result;
}
sub disfacetoface {
my ($r,$user,$domain)=@_;
my $target=$env{'form.grade_target'};
unless ($env{'request.course.id'}) { return; }
if (!&Apache::lonnet::allowed('dff',$env{'request.course.id'})
&& ! &Apache::lonnet::allowed('dff',$env{'request.course.id'}.
'/'.$env{'request.course.sec'})) {
$r->print(&mt('Not allowed'));
return;
}
my %records=&Apache::lonnet::dump('nohist_email',
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'},
'%255b'.$user.'%253a'.$domain.'%255d');
my $result='';
foreach my $key (sort(keys(%records))) {
my %content=&Apache::lonmsg::unpackagemsg($records{$key});
next if ($content{'senderdomain'} eq '');
&Apache::lonfeedback::newline_to_br(\$content{'message'});
if ($content{'subject'}=~/^Record/) {
$result.=''.$lt->{'sb'}.': '.$extra.
' '.&mt('Record').'
';
} elsif ($content{'subject'}=~/^Broadcast/) {
$result .=''.&mt('Broadcast Message').'
';
if ($content{'subject'}=~/^Broadcast\./) {
if (defined($content{'coursemsgid'})) {
my $crsmsgid = &escape($content{'coursemsgid'});
my $broadcast_message = &general_message($crsmsgid);
$content{'message'} = ''.&mt('Subject').': '.$content{'message'}.'
'.$broadcast_message;
} else {
%content=&Apache::lonmsg::unpackagemsg($content{'message'});
$content{'message'} =
''.&mt('Subject').': '.$content{'subject'}.'
'.
$content{'message'};
}
}
} else {
$result.=''.&mt('Critical Message').'
';
if (defined($content{'coursemsgid'})) {
my $crsmsgid=&escape($content{'coursemsgid'});
my $critical_message = &general_message($crsmsgid);
$content{'message'} = ''.&mt('Subject').': '.$content{'message'}.'
'.$critical_message;
} else {
%content=&Apache::lonmsg::unpackagemsg($content{'message'});
$content{'message'}=
''.&mt('Subject').': '.$content{'subject'}.'
'.
$content{'message'};
}
}
$result.=&mt('By').': '.
&Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('.
$content{'sendername'}.':'.
$content{'senderdomain'}.') '.$content{'time'}.
''.
&Apache::lontexconvert::msgtexconverted($content{'message'}).
'
';
}
# Check to see if there were any messages.
if ($result eq '') {
my $lctype = lc(&Apache::loncommon::course_type());
if ($target ne 'tex') {
$r->print("$lt{'head'}
ENDTREC
if (($stage ne 'query') &&
($env{'form.recdomain'}) && ($env{'form.recuname'})) {
chomp($env{'form.newrecord'});
if ($env{'form.newrecord'}) {
&Apache::lonmsg::store_instructor_comment($env{'form.newrecord'},
$env{'form.recuname'},
$env{'form.recdomain'});
}
$r->print(''.&Apache::loncommon::plainname($env{'form.recuname'},
$env{'form.recdomain'}).'
');
&disfacetoface($r,$env{'form.recuname'},$env{'form.recdomain'});
$r->print(<
ENDBFORM
}
}
# ----------------------------------------------------------- Blocking during exams
sub examblock {
my ($r,$action) = @_;
unless ($env{'request.course.id'}) { return;}
if (!&Apache::lonnet::allowed('dcm',$env{'request.course.id'})
&& ! &Apache::lonnet::allowed('dcm',$env{'request.course.id'}.
'/'.$env{'request.course.sec'})) {
$r->print('Not allowed');
return;
}
my $usertype = (&Apache::loncommon::course_type() eq 'Group') ? 'members'
: 'students';
my %lt=&Apache::lonlocal::texthash(
'comb' => 'Communication Blocking',
'cbds' => 'Communication blocking during scheduled exams',
'desc' => "You can use communication blocking to prevent $usertype enrolled in this course from displaying LON-CAPA messages sent by other $usertype during an online exam. As blocking of communication could potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA course, please be careful that you select the correct start and end times for your scheduled exam when setting or modifying these parameters.",
'mecb' => 'Modify existing communication blocking periods',
'ncbc' => 'No communication blocks currently stored',
'stor' => 'Store',
);
my %ltext = &Apache::lonlocal::texthash(
'dura' => 'Duration',
'setb' => 'Set by',
'even' => 'Event',
'blck' => 'Blocked?',
'actn' => 'Action',
'star' => 'Start',
'endd' => 'End'
);
&printheader($r,'/adm/email?block=display',$lt{'comb'});
$r->print(''.$lt{'cbds'}.'
');
if ($action eq 'store') {
&blockstore($r);
}
$r->print($lt{'desc'}.'
$end_page
END
return;
}
sub blockstore {
my $r = shift;
my %lt=&Apache::lonlocal::texthash(
'tfcm' => 'The following changes were made',
'ncwm' => 'No changes were made.'
);
my %adds = ();
my %removals = ();
my %cancels = ();
my $modtotal = 0;
my $canceltotal = 0;
my $addtotal = 0;
my %blocking = ();
$r->print(''.$lt{'head'}.'
');
foreach my $envkey (keys(%env)) {
if ($envkey =~ m/^form\.modify_(\d+)$/) {
$adds{$1} = $1;
$removals{$1} = $1;
$modtotal ++;
} elsif ($envkey =~ m/^form\.cancel_(\d+)$/) {
$cancels{$1} = $1;
unless ( defined($removals{$1}) ) {
$removals{$1} = $1;
$canceltotal ++;
}
} elsif ($envkey =~ m/^form\.add_(\d+)$/) {
$adds{$1} = $1;
$addtotal ++;
}
}
foreach my $key (keys(%removals)) {
my $hashkey = $env{'form.key_'.$key};
&Apache::lonnet::del('comm_block',["$hashkey"],
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'}
);
}
foreach my $key (keys(%adds)) {
unless ( defined($cancels{$key}) ) {
my ($newstart,$newend) = &get_dates_from_form($key);
my $newkey = $newstart.'____'.$newend;
my $blocktypes = &get_block_choices($key);
$blocking{$newkey} = {
setter => $env{'user.name'}.':'.$env{'user.domain'},
event => &escape($env{'form.title_'.$key}),
blocks => $blocktypes,
};
}
}
if ($addtotal + $modtotal > 0) {
&Apache::lonnet::put('comm_block',\%blocking,
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'}
);
}
my $chgestotal = $canceltotal + $modtotal + $addtotal;
if ($chgestotal > 0) {
$r->print($lt{'tfcm'}.'');
if ($canceltotal > 0) {
$r->print('
');
} else {
$r->print($lt{'ncwm'});
}
$r->print('
');
return;
}
sub get_dates_from_form {
my $item = shift;
my $startdate = &Apache::lonhtmlcommon::get_date_from_form('startdate_'.$item);
my $enddate = &Apache::lonhtmlcommon::get_date_from_form('enddate_'.$item);
return ($startdate,$enddate);
}
sub get_blockdates {
my ($records,$blockcount) = @_;
$$blockcount = 0;
%{$records} = &Apache::lonnet::dump('comm_block',
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'}
);
$$blockcount = keys(%{$records});
if ((keys(%{$records}))[0] =~ /^error: 2 /) {
$records = {};
$$blockcount = 0;
}
}
sub get_block_choices {
my $item = shift;
my $blocklist;
my ($typeorder,$types) = &blocktype_text();
foreach my $type (@{$typeorder}) {
if ($env{'form.'.$type.'_'.$item}) {
$blocklist->{$type} = 'on';
} else {
$blocklist->{$type} = 'off';
}
}
return $blocklist;
}
sub display_blocker_status {
my ($r,$records,$ltext) = @_;
my $parmcount = 0;
my %lt = &Apache::lonlocal::texthash(
'modi' => 'Modify',
'canc' => 'Cancel',
);
my ($typeorder,$types) = &blocktype_text();
$r->print(&Apache::loncommon::start_data_table());
$r->print(<<"END");
END
foreach my $record (sort(keys(%{$records}))) {
my $onchange = 'onFocus="javascript:window.document.forms['.
"'blockform'].elements['modify_".$parmcount."'].".
'checked=true;"';
my ($start,$end) = split(/____/,$record);
my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);
my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);
my ($setuname,$setudom,$title,$blocks) =
&Apache::loncommon::parse_block_record($$records{$record});
$title = &HTML::Entities::encode($title,'"<>&');
my $settername =
&Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($setuname,$setudom),
$setuname,$setudom);
$r->print(&Apache::loncommon::start_data_table_row());
$r->print(<<"END");
$ltext->{'dura'}
$ltext->{'setb'}
$ltext->{'even'}
$ltext->{'blck'}
$ltext->{'actn'}?
$ltext->{'star'}: $startform
$ltext->{'endd'}: $endform$settername
END
foreach my $block (@{$typeorder}) {
my $blockstatus = '';
if ($blocks->{$block} eq 'on') {
$blockstatus = 'checked="true"';
}
$r->print('
');
}
$r->print(<<"END");
END
$r->print(&Apache::loncommon::end_data_table_row());
$parmcount++;
}
$r->print(<<"END");
END
return $parmcount;
}
sub display_addblocker_table {
my ($r,$parmcount,$ltext) = @_;
my $start = time;
my $end = $start + (60 * 60 * 2); #Default is an exam of 2 hours duration.
my $onchange = 'onFocus="javascript:window.document.forms['.
"'blockform'].elements['add_".$parmcount."'].".
'checked=true;"';
my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);
my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);
my %lt = &Apache::lonlocal::texthash(
'addb' => 'Add block',
'exam' => 'e.g., Exam 1',
'addn' => 'Add new communication blocking periods'
);
my ($typeorder,$types) = &blocktype_text();
$r->print(<<"END");
$lt{'addn'}
END
$r->print(&Apache::loncommon::start_data_table());
$r->print(<<"END");
END
$r->print(&Apache::loncommon::start_data_table_row());
$r->print(<<"END");
$ltext->{'dura'}
$ltext->{'even'} $lt{'exam'}
$ltext->{'blck'}
$ltext->{'actn'}?
$ltext->{'star'}: $startform
$ltext->{'endd'}: $endform
END
foreach my $block (@{$typeorder}) {
$r->print('
');
}
$r->print(<<"END");
END
$r->print(&Apache::loncommon::end_data_table_row());
$r->print(&Apache::loncommon::end_data_table());
return;
}
sub blocktype_text {
my %types = &Apache::lonlocal::texthash(
'com' => 'Messaging',
'chat' => 'Chat',
'boards' => 'Discussion',
'port' => 'Portfolio',
'groups' => 'Groups',
'blogs' => 'Blogs',
);
my $typeorder = ['com','chat','boards','port','groups','blogs'];
return ($typeorder,\%types);
}
# ----------------------------------------------------------- Display a message
sub displaymessage {
my ($r,$msgid,$folder,$msgstatus)=@_;
my $suffix=&Apache::lonmsg::foldersuffix($folder);
my %blocked = ();
my %setters = ();
my $numblocked = 0;
my $crstype = &Apache::loncommon::course_type();
# info to generate "next" and "previous" buttons and check if message is blocked
my ($startblock,$endblock) = &Apache::loncommon::blockcheck(\%setters,'com');
my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder,$msgstatus);
if ( $blocked{$msgid} eq 'ON' ) {
&printheader($r,'/adm/email',&mt('Display a Message'));
$r->print(&mt('You attempted to display a message that is currently blocked because you are enrolled in one or more courses for which there is an ongoing online exam.'));
&build_block_table($r,$startblock,$endblock,\%setters);
return;
}
&statuschange($msgid,'read',$folder);
my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});
my $counter=0;
$r->print(' ');
my $escmsgid=&escape($msgid);
foreach (@messages) {
if ($_->[5] eq $escmsgid){
last;
}
$counter++;
}
$r->print('
');
my $number_of_messages = scalar(@messages); #subtract 1 for last index
# start output
&printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'});
my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'});
# Functions
$r->print('
');
if ($env{'user.adv'}) {
$r->print(''.&mt('Functions').': '.
''.&mt('Reply').' '.
''.&mt('Forward').' '.
''.&mt('Mark Unread').' '.
''.&mt('Delete').' '.
''.&mt('Back to Folder Display').' ');
if ($counter > 0){
$r->print(''.&mt('Previous').' ');
}
if ($counter < $number_of_messages - 1){
$r->print(''.&mt('Next').' ');
}
$r->print('
');
}
my $tolist;
my @recipients = ();
for (my $i=0; $i<@{$content{'recuser'}}; $i++) {
$recipients[$i] = &Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'recuser'}[$i],
$content{'recdomain'}[$i]),
$content{'recuser'}[$i],$content{'recdomain'}[$i]).
' ('.$content{'recuser'}[$i].' at '.$content{'recdomain'}[$i].') ';
}
$tolist = join(', ',@recipients);
$r->print(''.&mt('Currently available actions (will open extra window)').': ');
my $symb=&Apache::lonnet::symbread($content{'baseurl'});
if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
$r->print(''.&Apache::loncommon::track_student_link(&mt('View recent activity'),$content{'sendername'},$content{'senderdomain'},'check').' ');
}
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) && $symb) {
$r->print(''.&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$content{'sendername'},$content{'senderdomain'},$symb,'check').' ');
}
if (&Apache::lonnet::allowed('mgr',$env{'request.course.id'}) && $symb) {
$r->print(''.&Apache::loncommon::pgrdlink(&mt('Set/Change grades'),$content{'sendername'},$content{'senderdomain'},$symb,'check').' ');
}
$r->print('
'.&mt('Subject').': '.$content{'subject'}.
($folder ne 'sent'?'
'.&mt('From').': '.
&Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
$content{'sendername'},$content{'senderdomain'}).' ('.
$content{'sendername'}.' at '.
$content{'senderdomain'}.') ':'
'.&mt('To').': '.
$tolist).
($content{'courseid'}?'
'.&mt($crstype).': '.$courseinfo{'description'}.
($content{'coursesec'}?' ('.&mt('Section').': '.$content{'coursesec'}.')':''):'').
'
'.&mt('Time').': '.$content{'time'}.
($content{'baseurl'}?'
'.&mt('Refers to').': '.
$content{'baseurl'}.' ('.&Apache::lonnet::gettitle($content{'baseurl'}).')':'').
''.
&Apache::lontexconvert::msgtexconverted($content{'message'},1).
'
'.&displayresource(%content).'
'.&mt('Could not deliver message').' '. &mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'
'); } } return $sendstatus; } # ===================================================================== Handler sub handler { my $r=shift; # ----------------------------------------------------------- Set document type &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; # --------------------------- Get query string for limited number of parameters &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['display','replyto','forward','markread','markdel','markunread', 'sendreply','compose','sendmail','critical','recname','recdom', 'recordftf','sortedby','block','folder','startdis','interdis', 'showcommentbaseurl','dismode','group','subject','text','ref', 'msgstatus']); $sqs='&sortedby='.$env{'form.sortedby'}; # ------------------------------------------------------ They checked for email unless ($env{'form.block'}) { &Apache::lonnet::put('email_status',{'recnewemail'=>0}); } # ----------------------------------------------------------------- Breadcrumbs &Apache::lonhtmlcommon::clear_breadcrumbs(); &Apache::lonhtmlcommon::add_breadcrumb ({href=>"/adm/communicate", text=>"Communication/Messages", faq=>12,bug=>'Communication Tools',}); # ------------------------------------------------------------------ Get Folder my $folder=$env{'form.folder'}; unless ($folder) { $folder=''; } else { $sqs.='&folder='.&escape($folder); } # ------------------------------------------------------------ Get Display Mode my $dismode=$env{'form.dismode'}; unless ($dismode) { $dismode=''; } else { $sqs.='&dismode='.&escape($dismode); } # --------------------------------------------------------------------- Display my $msgstatus = $env{'form.msgstatus'}; $startdis=$env{'form.startdis'}; if ($startdis ne '') { $startdis--; } unless ($startdis) { $startdis=0; } $interdis=$env{'form.interdis'}; unless ($interdis) { $interdis=20; } $sqs.='&interdis='.$interdis; if ($env{'form.firstview'}) { $startdis=0; } if ($env{'form.lastview'}) { $startdis=-1; } if ($env{'form.prevview'}) { $startdis--; } if ($env{'form.nextview'}) { $startdis++; } my $postedstartdis=$startdis+1; $sqs.='&startdis='.$postedstartdis; # --------------------------------------------------------------- Render Output if ($env{'form.display'}) { &displaymessage($r,$env{'form.display'},$folder,$msgstatus); } elsif ($env{'form.replyto'}) { &compout($r,'',$env{'form.replyto'},undef,undef,$folder,$dismode); } elsif ($env{'form.confirm'}) { &printheader($r,'','Confirmed Receipt'); my $replying = 0; foreach my $envkey (keys(%env)) { if ($envkey=~/^form\.rec\_(.*)$/) { $r->print(''.&mt('Confirming Receipt').': '. &Apache::lonmsg::user_crit_received($1).''. &mt('Failed to delete the message.').'
'. ''.$msg."
\n"); } &Apache::loncommunicate::menu($r); &disall($r,($folder?$folder:$dismode),$msgstatus); } elsif ($env{'form.markedaction'} eq 'markedforward') { my $total = 0; my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark'); foreach my $msgid (@to_forward) { &statuschange(&unescape($msgid),'forwarded',$folder); $total ++; } if ($total > 0) { &compout($r,undef,undef,undef,undef,$folder,$dismode,$total); } } elsif ($env{'form.markedaction'} eq 'markedread') { my $total = 0; my @to_markread = &Apache::loncommon::get_env_multiple('form.delmark'); foreach my $msgid (@to_markread) { &statuschange(&unescape($msgid),'read',$folder); $total ++; } &printheader($r,'','Marked Messages Read'); $r->print(&mt('Marked [_1] message(s) read',$total).''); &Apache::loncommunicate::menu($r); &disall($r,($folder?$folder:$dismode),$msgstatus); } elsif ($env{'form.markedaction'} eq 'markedunread') { my $total = 0; my @to_markunread = &Apache::loncommon::get_env_multiple('form.delmark'); foreach my $msgid (@to_markunread) { &statuschange(&unescape($msgid),'new',$folder); $total ++; } &printheader($r,'','Marked Messages Unread'); $r->print(&mt('Marked [_1] message(s) unread',$total).'
'); &Apache::loncommunicate::menu($r); &disall($r,($folder?$folder:$dismode),$msgstatus); } elsif ($env{'form.markedaction'} eq 'markedmove') { my $destfolder = $env{'form.movetofolder'}; my %gotfolders = &Apache::lonmsg::get_user_folders(); &printheader($r,'','Moved Messages'); if (!defined($gotfolders{$destfolder})) { $r->print(&mt('Destination folder [_1] is not a valid folder', $destfolder)); } else { my ($total,$failed,@failed_msg)=(0,0); my @to_move = &Apache::loncommon::get_env_multiple('form.delmark'); foreach my $msgid (@to_move) { my ($result,$msg) = &movemsg(&unescape($msgid),$folder, $env{'form.movetofolder'}); if ($result) { $total++; } else { $failed++; push(@failed_msg,$msg); } } if ($failed) { $r->print('
'.&mt('Failed to move [_1] message(s)',$failed). '
'); $r->print(''. join("
\n",@failed_msg). "
\n"); } $r->print(&mt('Moved [_1] message(s)',$total).''); } &Apache::loncommunicate::menu($r); &disall($r,($folder?$folder:$dismode),$msgstatus); } elsif ($env{'form.markedaction'} eq 'markeddel') { my ($total,$failed,@failed_msg)=(0,0); my @to_delete = &Apache::loncommon::get_env_multiple('form.delmark'); foreach my $msgid (@to_delete) { my ($result,$msg) = &statuschange(&unescape($msgid),'deleted', $folder); if ($result) { $total++; } else { $failed++; push(@failed_msg,$msg); } } &printheader($r,'','Deleted Messages'); if ($failed) { $r->print('
'.&mt('Failed to delete [_1] message(s)',$failed). '
'); $r->print(''. join("
\n",@failed_msg). "
\n"); } $r->print(&mt('Deleted [_1] message(s)',$total).'');
&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode),$msgstatus);
} elsif ($env{'form.markunread'}) {
&printheader($r,'','Marked Message as Unread');
&statuschange($env{'form.markunread'},'new');
&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode),$msgstatus);
} elsif ($env{'form.compose'}) {
&compout($r,'','',$env{'form.compose'});
} elsif ($env{'form.recordftf'}) {
&facetoface($r,$env{'form.recordftf'});
} elsif ($env{'form.block'}) {
&examblock($r,$env{'form.block'});
} elsif ($env{'form.sendmail'}) {
if ($env{'form.multiforward'}) {
&printheader($r,'','Messages being sent.');
my $fixed_subj = $env{'form.subject'};
my $suffix=&Apache::lonmsg::foldersuffix($folder);
my (%sendresult,%forwardok,%forwardfail,$fwdcount);
my @to_forward = &Apache::loncommon::get_env_multiple('form.delmark');
foreach my $item (@to_forward) {
my $msgid=&unescape($item);
my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
my %content=&Apache::lonmsg::unpackagemsg($message{$msgid},1);
if ($env{'form.showorigsubj'}) {
$env{'form.subject'} = $fixed_subj.$content{'subject'};
} else {
$env{'form.subject'} = '';
}
my $uname = $content{'sendername'};
my $udom = $content{'senderdomain'};
&statuschange($msgid,'forwarded',$folder);
if ($env{'form.showorigsender'}) {
$env{'form.message'} = $env{'form.msgheader'}.' '.
&Apache::loncommon::plainname($uname,$udom).' ('.
$uname.':'.$udom.')';
}
$env{'form.message'} .= "\n\n-- Forwarded message --\n\n".
$content{'message'};
$fwdcount ++;
$r->print($fwdcount.': ');
$sendresult{$msgid} = &sendoffmail($r,$folder);
$r->print('
');
}
foreach my $key (keys(%sendresult)) {
if ($sendresult{$key} =~/^(\s*(?:ok|con_delayed)\s*)*$/) {
$forwardok{$key} = $sendresult{$key};
} else {
$forwardfail{$key} = $sendresult{$key};
}
}
if (keys(%forwardok) > 0) {
my $count = keys(%forwardok);
$r->print('
'.
&mt('[quant,_1,message] forwarded.',$count).
'');
}
if (keys(%forwardfail) > 0) {
my $count = keys(%forwardfail);
$r->print('
'.
&mt('Could not forward [quant,_1,message].',$count).
' ');
foreach my $key (keys(%forwardfail)) {
$r->print(&mt('Could not deliver forwarded message.').' '.
&mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.').
');
}
}
&Apache::loncommunicate::menu($r);
} else {
&sendoffmail($r,$folder);
}
if ($env{'form.storebasecomment'}) {
&storecomment($r);
}
if (($env{'form.rsspost'}) && ($env{'request.course.id'})) {
&Apache::lonrss::addentry($env{'course.'.$env{'request.course.id'}.'.num'},
$env{'course.'.$env{'request.course.id'}.'.domain'},
'Course_Announcements',
$env{'form.subject'},
$env{'form.message'},'/adm/communicate','public');
}
if ((!exists($env{'form.group'})) && (!$env{'form.displayedcrit'})) {
&disall($r,($folder?$folder:$dismode),$msgstatus);
}
} elsif ($env{'form.newfolder'}) {
&printheader($r,'','New Folder');
my $showfolder = $env{'form.newfolder'};
my ($makeresult,$warning) = &makefolder($env{'form.newfolder'});
if ($makeresult eq 'ok') {
$r->print(&mt('Mail folder "[_1]" created.',$showfolder).'
');
} else {
$r->print(&mt('Creation failed.').' '.$makeresult.'
'.
$warning);
$showfolder = $folder;
}
&Apache::loncommunicate::menu($r);
&disall($r,$showfolder,$msgstatus);
} elsif ($env{'form.showcommentbaseurl'}) {
&storedcommentlisting($r);
} elsif ($env{'form.folderaction'} eq 'delete') {
&printheader($r,'','Deleted Folder');
my $showfolder = '';
my $delresult = &deletefolder($folder);
if ($delresult eq 'ok') {
$r->print(&mt('Mail folder "[_1]" deleted.',$folder).'
');
} else {
$r->print(&mt('Deletion failed.').' '.$delresult.'
');
$showfolder = $folder;
}
&Apache::loncommunicate::menu($r);
&disall($r,$showfolder,$msgstatus);
} elsif ($env{'form.folderaction'} eq 'rename') {
&printheader($r,'','Renamed Folder');
my $showfolder = $env{'form.renamed'};
my $renresult = &renamefolder($folder);
if ($renresult eq 'ok') {
$r->print(&mt('Mail folder "[_1]" renamed "[_2]".',$folder,$showfolder).'
');
} else {
$r->print(&mt('Renaming failed.').' '.$renresult.'
');
$showfolder = $folder;
}
&Apache::loncommunicate::menu($r);
&disall($r,$showfolder,$msgstatus);
} else {
&printheader($r,'','Display All Messages');
&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode),$msgstatus);
}
$r->print(&Apache::loncommon::end_page());
return OK;
}
# ================================================= Main program, reset counter
=pod
=back
=cut
1;
__END__