# The LearningOnline Network with CAPA
# Routines for messaging display
#
# $Id: lonmsgdisplay.pm,v 1.84 2008/02/22 13:32:49 bisitz 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::lonmsgdisplay: supports internal messaging
=head1 SYNOPSIS
lonmsgdisplay provides a handler to allow users to read, send,
and delete messages, and to create and delete message folders,
and to move messages between folders.
=head1 OVERVIEW
=head2 Messaging Overview
X ' . $crithelp .
' '.
'' . $crithelp .
'
'.
&mt('[_1] messages: showing messages [_2] through [_3] of [_4].',$status,$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{$folder})) {
return &mt('The folder "[_1]" may not be renamed as it is a folder provided by the system.',$folder);
}
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,$processid,$symb,$error) =
&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)=@_;
my %saveable = ('msgstatus' => 'scalar',
'sortedby' => 'scalar',
'interdis' => 'scalar',
);
&Apache::loncommon::store_settings('user','mail',\%saveable);
&Apache::loncommon::restore_settings('user','mail',\%saveable);
$folder ||= $env{'form.folder'};
$msgstatus ||= $env{'form.msgstatus'};
$env{'form.interdis'} ||= 20;
$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.',
);
my $jscript = &Apache::loncommon::check_uncheck_jscript();
$r->print(<'.&mt('Empty Folder').'
');
} elsif ($msgstatus eq 'replied') {
$r->print(''.&mt('You have not replied to any messages in this folder.').'
');
} else {
$r->print(''.&mt('There are no '.lc($statushash{$msgstatus}).' messages in this folder.').'
');
}
if ($numblocked > 0) {
$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
\%setters));
}
return;
}
my $interdis = $env{'form.interdis'};
my $number=int($totalnumber/$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) {
$r->print(&blocked_in_folder($numblocked,$startblock,$endblock,
\%setters));
}
}
sub blocked_in_folder {
my ($numblocked,$startblock,$endblock,$setters) = @_;
my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
my $output = '
'.
&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);
$output .= &Apache::loncommon::build_block_table($startblock,$endblock,
$setters);
return $output;
}
# ============================================================== 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');
if ($multiforward > 1) {
$r->print(&mt('Each of the [quant,_1,message] you checked
will be forwarded to the recipient(s) you select below.',$multiforward).'
');
} else {
$r->print(&mt('The message you checked will be forwarded to the recipient(s) you select below.').'
');
}
} 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',
'rt' => 'Reply to',
'ar' => 'Allow replies',
'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 $jscript = &Apache::loncommon::check_uncheck_jscript();
$r->print(<<"ENDREPSCRIPT");
ENDREPSCRIPT
}
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(
'');
return;
}
$r->print(' ');
} else {
$r->print(&mt('The sender did not designate a reply to address for this message.').'');
return;
}
} else {
$r->print(&Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('.
$content{'sendername'}.':'.
$content{'senderdomain'}.')');
$r->print(''.
'');
}
if ($content{'recipid'}) {
my @ccs = &retrieve_cc_recips('replying',%content);
if (@ccs > 0) {
my $replyall = qq|
|;
my $cclist = join(' ',@ccs);
$r->print(''.&mt('Replying to').' ');
if ($content{'replytoaddr'}) {
my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
if ($replytoname ne '' && $replytodom ne '') {
$r->print(&Apache::loncommon::plainname($replytoname,
$replytodom).' ('.$replytoname.':'.
$replytodom.')');
$r->print(''.
' ');
}
}
} else {
$r->print(&recipient_input_row($defdom,%lt));
}
}
my $latexHelp = Apache::loncommon::helpLatexCheatsheet();
my $subj_size;
if ($multiforward) {
$r->print(&additional_rec_row(\%lt));
$r->print(''.&mt('Reply to other recipients').':
'.$replyall.''.$cclist.' ');
$func=&mt('Forward');
$dissub = &mt('Forwarding').': ';
$subj_size = '10';
my $extra = '<'.&mt('original subject').'> '.
''.&mt('Yes').' '.&mt('No');
$dismsg = &mt('Forwarded message from ').' ';
my $sender = &mt("sender's name");
$r->print(&msg_subject_row($dissub,\%lt,$subj_size,$extra));
$r->print(''.
&mt('Unless you choose otherwise:').' '.&mt('Message begins with:').' '.$sender.' '.&mt('Yes').' '.&mt('No').'
'.
$latexHelp.
&mt("Any new text to display before the text of the original messages:").'
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)."
ENDREC
return $output;
}
sub reply_to_row {
my ($lt) = @_;
my $radioyes = &mt('Yes');
my $radiono = &mt('No');
my $output = <<"ENDREP";
$lt{'us'}: $lt{'do'}: $domform $selectlink
ENDREP
return $output;
}
sub additional_rec_row {
my ($lt) = @_;
my $cc = &mt('Cc:');
my $bcc = &mt('Bcc:');
my $output = <<"ENDADD";
$lt->{'ar'}: $lt->{'rt'}:
ENDADD
return $output;
}
sub submit_button_row {
my ($folder,$dismode,$sendtext,$lt) = @_;
my $output = qq|
$lt->{'ad'} :
username:domain,username:domain, ...
$cc
$bcc
|;
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'};
}
}
} elsif ($content{'subject'}=~/^Archive/) {
$result.=''.&mt('Archived Message').'
';
if (defined($content{'coursemsgid'})) {
my $crsmsgid = &escape($content{'coursemsgid'});
my $archive_message = &general_message($crsmsgid);
$content{'message'} = ''.&mt('Subject').': '.$content{'message'}.'
'.$archive_message;
} else {
%content=&Apache::lonmsg::unpackagemsg($content{'message'});
$content{'message'} =
''.&mt('Subject').': '.$content{'subject'}.'
'.&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 saved',
'stor' => 'Save',
);
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;
}
if ($msgstatus eq '') {
&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 $see_anonymous;
my $from_student = 0;
if ($env{'request.course.id'} eq $content{'courseid'}) {
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $username = $content{'sendername'}.':'.$content{'senderdomain'};
my %classlist_entry =
&Apache::lonnet::get('classlist',[$username],$cdom,$cnum);
if (exists($classlist_entry{$username})) {
$from_student = 1;
$see_anonymous = &Apache::lonnet::allowed('rin',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
}
}
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('
');
my $symb;
if (defined($content{'symb'})) {
$symb = $content{'symb'};
} elsif (defined($content{'baseurl'})) {
$symb=&Apache::lonnet::symbread($content{'baseurl'});
}
if ($env{'user.adv'}) {
my $adv_actions;
$r->print(''.&mt('Functions').': ');
if (!$content{'noreplies'}) {
$r->print(''.&mt('Reply').' ');
}
$r->print(''.&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,$cclist);
my (@recipients,@ccs);
if (ref($content{'recuser'}) eq 'ARRAY') {
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].' '.&mt('at').' '.$content{'recdomain'}[$i].') ';
}
}
$tolist = join(', ',@recipients);
if ($content{'recipid'}) {
@ccs = &retrieve_cc_recips('display',%content);
$cclist = join(', ',@ccs);
}
my ($restitle,$baseurl,$refers_to);
if (defined($content{'resource_title'})) {
$restitle = $content{'resource_title'};
} else {
if (defined($content{'baseurl'})) {
$restitle = &Apache::lonnet::gettitle($content{'baseurl'});
}
}
if (defined($content{'baseurl'})) {
$baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'});
}
if ($from_student && $see_anonymous ) {
$r->print(&Apache::loncommon::student_image_tag($content{'senderdomain'},$content{'sendername'}));
}
$r->print(''.&mt('Currently available actions (will open extra window)').': ');
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'});
if ($folder eq 'sent') {
$r->print('
'.&mt('To').': '.$tolist);
if ($content{'replytoaddr'}) {
my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
if ($replytoname ne '' && $replytodom ne '') {
$r->print('
'.&mt('Reply To').': '.
$replytoname.' '.&mt('at').' '.$replytodom);
}
}
} else {
$r->print('
'.&mt('From').': '.
&Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
$content{'sendername'},$content{'senderdomain'}));
if ($content{'noreplies'}) {
$r->print(' ('.&mt('No replies to sender').')');
} else {
if ($content{'replytoaddr'}) {
my ($replytoname,$replytodom) = split(/:/,$content{'replytoaddr'});
if ($replytoname ne '' && $replytodom ne '') {
$r->print('
'.&mt('Reply To').': '.
$replytoname.' '.&mt('at').' '.$replytodom);
}
} else {
$r->print(' ('.$content{'sendername'}.' '.&mt('at').' '.
$content{'senderdomain'}.') ');
}
if ($cclist) {
$r->print('
'.&mt('Cc').': '.$cclist);
}
}
}
if ($content{'courseid'}) {
$r->print('
'.&mt($crstype).': '.$courseinfo{'description'});
if ($content{'coursesec'}) {
$r->print(' ('.&mt('Section').': '.$content{'coursesec'}.')');
}
}
$r->print('
'.&mt('Time').': '.$content{'time'});
if ($baseurl) {
if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {
if ($content{'courseid'} eq $env{'request.course.id'}) {
my $symblink;
my $showsymb = &Apache::lonenc::check_decrypt($symb);
my $showurl = &Apache::lonenc::check_decrypt($baseurl);
my $encrypturl = &Apache::lonnet::EXT('resource.0.encrypturl',
$showsymb,$env{'user.domain'},$env{'user.name'});
if ($symb) {
if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
$showsymb = &Apache::lonenc::check_encrypt($symb);
}
$symblink = '?symb='.$showsymb;
}
if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
$showurl = $baseurl;
}
$r->print('
'.&mt('Refers to').': '.$restitle.'');
$refers_to = 1;
}
}
if (!$refers_to) {
if ($baseurl =~ m-^/enc/-) {
if (defined($content{'courseid'})) {
if (!$env{'request.course.id'}) {
my $unencurl =
&Apache::lonenc::unencrypted($baseurl,
$content{'courseid'});
if ($unencurl ne '') {
if (&Apache::lonnet::allowed('bre',$unencurl)) {
$r->print('
'.&mt('Refers to').
': '.
$restitle.'');
}
}
}
}
} else {
if (&Apache::lonnet::allowed('bre',$baseurl)) {
$r->print('
'.&mt('Refers to').
': '.$restitle.'');
}
}
}
}
$r->print(''.
&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; } 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\.(rep)?rec\_(.*)$/) { my $repchk = $1; my $msgid = $2; $r->print(''.&mt('Confirming Receipt').': '); my $result = &Apache::lonmsg::user_crit_received($msgid); if ($result =~ /trans:\s+ok/) { &statuschange($msgid,'read'); } $r->print($result.''. &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).'
');
$env{'form.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
=cut
1;
__END__
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.
More information about this error may be available in the server error log.