# The LearningOnline Network with CAPA
# Routines for messaging display
#
# $Id: lonmsgdisplay.pm,v 1.35.2.3 2006/07/19 10:20:11 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('Showing messages [_1] through [_2] of [_3]',$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)=@_;
if (($newfolder eq 'sent')
|| ($newfolder eq 'critical')
|| ($newfolder eq 'trash')
|| ($newfolder eq 'new')) { return; }
&Apache::lonnet::put('email_folders',{$newfolder => time});
}
# ======================================================== 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 = &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) = @_;
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);
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'};
$description = $courseinfo{'description'};
}
$$descriptions{$fromcid} = $description;
}
return $description;
}
}
# ======================================================== Display new messages
sub disnew {
my $r=shift;
my %lt=&Apache::lonlocal::texthash(
'nm' => 'New Messages',
'su' => 'Subject',
'co' => 'Course',
'da' => 'Date',
'us' => 'Username',
'op' => 'Open',
'do' => 'Domain'
);
my @msgids = sort(&Apache::lonnet::getkeys('nohist_email'));
my @newmsgs;
my %setters = ();
my $startblock = 0;
my $endblock = 0;
my %blocked = ();
my $numblocked = 0;
# Check for blocking of display because of scheduled online exams.
&blockcheck(\%setters,\$startblock,\$endblock);
my %status_cache =
&Apache::lonnet::get('email_status',\@msgids);
my %descriptions;
foreach (@msgids) {
my $msgid=&escape($_);
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)=
&Apache::lonmsg::unpackmsgid($msgid,undef,undef,\%status_cache);
if (defined($sendtime) && $sendtime!~/error/) {
my $description = &get_course_desc($fromcid,\%descriptions);
my $numsendtime = $sendtime;
$sendtime = &Apache::lonlocal::locallocaltime($sendtime);
if ($status eq 'new') {
if ($numsendtime >= $startblock && ($numsendtime <= $endblock && $endblock > 0) ) {
$blocked{$_} = 'ON';
$numblocked ++;
} else {
push @newmsgs, {
msgid => $msgid,
sendtime => $sendtime,
shortsub => $shortsubj,
from => $fromname,
fromdom => $fromdom,
course => $description
}
}
}
}
}
if ($#newmsgs >= 0) {
$r->print(<
');
} elsif ($numblocked == 0) {
$r->print("
TABLEHEAD
foreach my $msg (@newmsgs) {
$r->print(<<"ENDLINK");
 
$lt{'da'} $lt{'us'} $lt{'do'} $lt{'su'} $lt{'co'}
");
}
$r->print('$lt{'op'}
ENDLINK
foreach ('sendtime','from','fromdom','shortsub','course') {
$r->print("$msg->{$_} ");
}
$r->print("".&mt('You have no unread messages')."
");
}
if ($numblocked > 0) {
my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
if ($numblocked == 1) {
$r->print("".&mt('You have').' '.$numblocked.' '.&mt('blocked unread message').".
");
$r->print(&mt('This message is not viewable because').' ');
} else {
$r->print("".&mt('You have').' '.$numblocked.' '.&mt('blocked unread messages').".
");
$r->print(&mt('These').' '.$numblocked.' '.&mt('messages are not viewable because '));
}
$r->print(
&mt('display of LON-CAPA messages sent to you by other students between').' '.$beginblock.' '.&mt('and').' '.$finishblock.' '.&mt('is currently being blocked because of online exams').'.');
&build_block_table($r,$startblock,$endblock,\%setters);
}
}
# ======================================================== Display all messages
sub disall {
my ($r,$folder)=@_;
$r->print(&folderlist($folder));
if ($folder eq 'new') {
&disnew($r);
} elsif ($folder eq 'critical') {
&discrit($r);
} else {
&disfolder($r,$folder);
}
}
# ============================================================ Display a folder
sub disfolder {
my ($r,$folder)=@_;
my %blocked = ();
my %setters = ();
my $startblock;
my $endblock;
my $numblocked = 0;
&blockcheck(\%setters,\$startblock,\$endblock);
$r->print(<'.&mt('Empty Folder').'
');
return;
}
unless ($interdis) {
$interdis=20;
}
my $number=int($totalnumber/$interdis);
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));
$r->print('');
if ($numblocked > 0) {
my $beginblock = &Apache::lonlocal::locallocaltime($startblock);
my $finishblock = &Apache::lonlocal::locallocaltime($endblock);
$r->print('
'.
$numblocked.' '.&mt('message(s) is/are not viewable because display of LON-CAPA messages sent to you by other students between').' '.$beginblock.' '.&mt('and').' '.$finishblock.' '.&mt('is currently being blocked because of online exams.'));
&build_block_table($r,$startblock,$endblock,\%setters);
}
}
# ============================================================== Compose output
sub compout {
my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder,$dismode)=@_;
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;
} 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');
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:
General message text
The file format for the uploaded portion of the message is:
username1\@domain1: text username2\@domain2: text username3\@domain1: text
The messages will be assembled from all lines with the respective username\@domain, and appended to the general message text.
$dispcrit
ENDUPLOAD } if ($broadcast eq 'group') { if ($group eq '') { my $studentsel = &discourse(); $r->print($studentsel); } } if ($env{'form.displayedcrit'}) { $r->print(''); } $r->print(''. &Apache::lonfeedback::generate_preview_button('compemail','message'). &Apache::lonhtmlcommon::htmlareaselectactive('message')); } # ---------------------------------------------------- Display all face to face sub recipient_input_row { my ($dom,%lt) = @_; my $domform = &Apache::loncommon::select_dom_form($dom,'recdomain'); my $selectlink= &Apache::loncommon::selectstudent_link('compemail','recuname', 'recdomain'); my $output = <<"ENDREC";'. &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("
".&mt('No notes, face-to-face discussion records, critical messages, or broadcast messages in this [_1].',$lctype)."
"); } else { $r->print('\textbf{'.&mt('No notes, face-to-face discussion records, critical messages or broadcast messages in this [_1].',$lctype).'}\\\\'); } } else { $r->print($result); } } sub general_message { my ($crsmsgid) = @_; my %general_content; if ($crsmsgid) { my %course_content = &Apache::lonnet::get('nohist_email',[$crsmsgid], $env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); %general_content = &Apache::lonmsg::unpackagemsg($course_content{$crsmsgid}); } return $general_content{'message'}; } # ---------------------------------------------------------------- Face to face sub facetoface { my ($r,$stage)=@_; if (!&Apache::lonnet::allowed('srm',$env{'request.course.id'}) && ! &Apache::lonnet::allowed('srm',$env{'request.course.id'}. '/'.$env{'request.course.sec'})) { $r->print('Not allowed'); return; } my $crstype = &Apache::loncommon::course_type(); my $leaders = ($crstype eq 'Group') ? 'coordinators and leaders' : 'faculty and staff'; &printheader($r, '/adm/email?recordftf=query', "User Notes, Face-to-Face, Critical Messages, Broadcast Messages"); # from query string if ($env{'form.recname'}) { $env{'form.recuname'}=$env{'form.recname'}; } if ($env{'form.recdom'}) { $env{'form.recdomain'}=$env{'form.recdom'}; } my $defdom=$env{'user.domain'}; # already filled in if ($env{'form.recdomain'}) { $defdom=$env{'form.recdomain'}; } # generate output my $domform = &Apache::loncommon::select_dom_form($defdom,'recdomain'); my $stdbrws = &Apache::loncommon::selectstudent_link ('stdselect','recuname','recdomain'); my %lt=&Apache::lonlocal::texthash('user' => 'Username', 'dom' => 'Domain', 'head' => "User Notes, Records of Face-To-Face Discussions, Critical Messages, and Broadcast Messages in $crstype", 'subm' => 'Retrieve discussion and message records', 'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')', 'post' => 'Post this Record'); $r->print(<<"ENDTREC");'); 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('
'.&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('
'.&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('
'. &Apache::lontexconvert::msgtexconverted($content{'message'},1). '
'.&mt('Could not deliver message').' '. &mt('Please use the browser "Back" button and correct the recipient addresses '."($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']); $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 $startdis=$env{'form.startdis'}; $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); } 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 (keys %env) { if ($_=~/^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)); } elsif ($env{'form.markedmove'}) { my ($total,$failed,@failed_msg)=(0,0); foreach my $key (keys(%env)) { if ($key=~/^form\.delmark_(.*)$/) { my ($result,$msg) = &movemsg(&unescape($1),$folder, $env{'form.movetofolder'}); if ($result) { $total++; } else { $failed++; push(@failed_msg,$msg); } } } &printheader($r,'','Moved Messages'); 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)); } elsif ($env{'form.markeddel'}) { my ($total,$failed,@failed_msg)=(0,0); foreach my $key (keys(%env)) { if ($key=~/^form\.delmark_(.*)$/) { my ($result,$msg) = &statuschange(&unescape($1),'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)); } elsif ($env{'form.markunread'}) { &printheader($r,'','Marked Message as Unread'); &statuschange($env{'form.markunread'},'new'); &Apache::loncommunicate::menu($r); &disall($r,($folder?$folder:$dismode)); } 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'}) { &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)); } } elsif ($env{'form.newfolder'}) { &printheader($r,'','New Folder'); &makefolder($env{'form.newfolder'}); &Apache::loncommunicate::menu($r); &disall($r,$env{'form.newfolder'}); } elsif ($env{'form.showcommentbaseurl'}) { &storedcommentlisting($r); } else { &printheader($r,'','Display All Messages'); &Apache::loncommunicate::menu($r); &disall($r,($folder?$folder:$dismode)); } $r->print(&Apache::loncommon::end_page()); return OK; } # ================================================= Main program, reset counter =pod =back =cut 1; __END__