--- loncom/interface/lonmsg.pm 2004/07/15 21:08:45 1.104 +++ loncom/interface/lonmsg.pm 2005/02/17 04:11:21 1.136 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.104 2004/07/15 21:08:45 matthew Exp $ +# $Id: lonmsg.pm,v 1.136 2005/02/17 04:11:21 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -90,7 +90,7 @@ also has a student role in the course, A Users can ask LON-CAPA to forward messages to conventional e-mail addresses on their B screen, but generally, LON-CAPA messages -are much more useful then traditional email can be made to be, even +are much more useful than traditional email can be made to be, even with HTML support. Right now, this document will cover just how to send a message, since @@ -117,11 +117,14 @@ use Apache::loncommunicate; # Querystring component with sorting type my $sqs; +my $startdis; +my $interdis; # ===================================================================== Package sub packagemsg { - my ($subject,$message,$citation,$baseurl,$attachmenturl)=@_; + my ($subject,$message,$citation,$baseurl,$attachmenturl, + $recuser,$recdomain)=@_; $message =&HTML::Entities::encode($message,'<>&"'); $citation=&HTML::Entities::encode($citation,'<>&"'); $subject =&HTML::Entities::encode($subject,'<>&"'); @@ -156,6 +159,8 @@ sub packagemsg { ''.$ENV{'request.role'}.''. ''.$ENV{'request.filename'}.''. ''.$msgid.''. + ''.$recuser.''. + ''.$recdomain.''. ''.$message.''; if (defined($citation)) { $result.=''.$citation.''; @@ -201,10 +206,12 @@ sub unpackagemsg { # ======================================================= Get info out of msgid sub unpackmsgid { - my $msgid=&Apache::lonnet::unescape(shift); + my ($msgid,$folder)=@_; + $msgid=&Apache::lonnet::unescape($msgid); + my $suffix=&foldersuffix($folder); my ($sendtime,$shortsubj,$fromname,$fromdomain)=split(/\:/, &Apache::lonnet::unescape($msgid)); - my %status=&Apache::lonnet::get('email_status',[$msgid]); + my %status=&Apache::lonnet::get('email_status'.$suffix,[$msgid]); if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; } unless ($status{$msgid}) { $status{$msgid}='new'; } return ($sendtime,$shortsubj,$fromname,$fromdomain,$status{$msgid}); @@ -232,9 +239,15 @@ sub sendemail { # ==================================================== Send notification emails sub sendnotification { - my ($to,$touname,$toudom,$subj,$crit)=@_; + my ($to,$touname,$toudom,$subj,$crit,$text)=@_; my $sender=$ENV{'environment.firstname'}.' '.$ENV{'environment.lastname'}; + unless ($sender=~/\w/) { + $sender=$ENV{'user.name'}.'@'.$ENV{'user.domain'}; + } my $critical=($crit?' critical':''); + $text=~s/\<\;/\/gs; + $text=~s/\<\/*[^\>]+\>//gs; my $url='http://'. $Apache::lonnet::hostname{&Apache::lonnet::homeserver($touname,$toudom)}. '/adm/email?username='.$touname.'&domain='.$toudom; @@ -243,11 +256,15 @@ You received a$critical message from $se $subj +=== Excerpt ============================================================ +$text +======================================================================== + Use $url -to access this message. +to access the full message. ENDMSG &sendemail($to,'New'.$critical.' message from '.$sender,$body); } @@ -339,11 +356,12 @@ sub all_url_author_res_msg { # ================================================== Critical message to a user sub user_crit_msg_raw { - my ($user,$domain,$subject,$message,$sendback)=@_; + my ($user,$domain,$subject,$message,$sendback,$toperm)=@_; # Check if allowed missing my $status=''; my $msgid='undefined'; unless (($message)&&($user)&&($domain)) { $status='empty'; }; + my $text=$message; my $homeserver=&Apache::lonnet::homeserver($user,$domain); if ($homeserver ne 'no_host') { ($msgid,$message)=&packagemsg($subject,$message); @@ -363,10 +381,16 @@ sub user_crit_msg_raw { $status='no_host'; } # Notifications - my %userenv = &Apache::lonnet::get('environment',['critnotification'], + my %userenv = &Apache::lonnet::get('environment',['critnotification', + 'permanentemail'], $domain,$user); if ($userenv{'critnotification'}) { - &sendnotification($userenv{'critnotification'},$user,$domain,$subject,1); + &sendnotification($userenv{'critnotification'},$user,$domain,$subject,1, + $text); + } + if ($toperm && $userenv{'permanentemail'}) { + &sendnotification($userenv{'permanentemail'},$user,$domain,$subject,1, + $text); } # Log this &Apache::lonnet::logthis( @@ -390,7 +414,7 @@ sub user_crit_msg_raw { =cut sub user_crit_msg { - my ($user,$domain,$subject,$message,$sendback)=@_; + my ($user,$domain,$subject,$message,$sendback,$toperm)=@_; my $status=''; my %userenv = &Apache::lonnet::get('environment',['msgforward'], $domain,$user); @@ -400,10 +424,10 @@ sub user_crit_msg { my ($forwuser,$forwdomain)=split(/\:/,$_); $status.= &user_crit_msg_raw($forwuser,$forwdomain,$subject,$message, - $sendback).' '; + $sendback,$toperm).' '; } } else { - $status=&user_crit_msg_raw($user,$domain,$subject,$message,$sendback); + $status=&user_crit_msg_raw($user,$domain,$subject,$message,$sendback,$toperm); } return $status; } @@ -437,29 +461,45 @@ sub user_crit_received { # ======================================================== Normal communication sub user_normal_msg_raw { - my ($user,$domain,$subject,$message,$citation,$baseurl,$attachmenturl)=@_; + my ($user,$domain,$subject,$message,$citation,$baseurl,$attachmenturl, + $toperm)=@_; # Check if allowed missing my $status=''; my $msgid='undefined'; + my $text=$message; unless (($message)&&($user)&&($domain)) { $status='empty'; }; my $homeserver=&Apache::lonnet::homeserver($user,$domain); if ($homeserver ne 'no_host') { ($msgid,$message)=&packagemsg($subject,$message,$citation,$baseurl, - $attachmenturl); + $attachmenturl,$user,$domain); +# Store in user folder $status=&Apache::lonnet::critical( 'put:'.$domain.':'.$user.':nohist_email:'. &Apache::lonnet::escape($msgid).'='. &Apache::lonnet::escape($message),$homeserver); +# Save new message received time &Apache::lonnet::put ('email_status',{'recnewemail'=>time},$domain,$user); +# Into sent-mail folder + $status.=' '.&Apache::lonnet::critical( + 'put:'.$ENV{'user.domain'}.':'.$ENV{'user.name'}. + ':nohist_email_sent:'. + &Apache::lonnet::escape($msgid).'='. + &Apache::lonnet::escape($message),$ENV{'user.home'}); } else { $status='no_host'; } # Notifications - my %userenv = &Apache::lonnet::get('environment',['notification'], + my %userenv = &Apache::lonnet::get('environment',['notification', + 'permanentemail'], $domain,$user); if ($userenv{'notification'}) { - &sendnotification($userenv{'notification'},$user,$domain,$subject,0); + &sendnotification($userenv{'notification'},$user,$domain,$subject,0, + $text); + } + if ($toperm && $userenv{'permanentemail'}) { + &sendnotification($userenv{'permanentemail'},$user,$domain,$subject,0, + $text); } &Apache::lonnet::log($ENV{'user.domain'},$ENV{'user.name'}, $ENV{'user.home'}, @@ -478,7 +518,8 @@ sub user_normal_msg_raw { =cut sub user_normal_msg { - my ($user,$domain,$subject,$message,$citation,$baseurl,$attachmenturl)=@_; + my ($user,$domain,$subject,$message,$citation,$baseurl,$attachmenturl, + $toperm)=@_; my $status=''; my %userenv = &Apache::lonnet::get('environment',['msgforward'], $domain,$user); @@ -488,40 +529,115 @@ sub user_normal_msg { my ($forwuser,$forwdomain)=split(/\:/,$_); $status.= &user_normal_msg_raw($forwuser,$forwdomain,$subject,$message, - $citation,$baseurl,$attachmenturl).' '; + $citation,$baseurl,$attachmenturl,$toperm).' '; } } else { $status=&user_normal_msg_raw($user,$domain,$subject,$message, - $citation,$baseurl,$attachmenturl); + $citation,$baseurl,$attachmenturl,$toperm); } return $status; } +# ============================================================ List all folders + +sub folderlist { + my $folder=shift; + my @allfolders=&Apache::lonnet::getkeys('email_folders'); + if ($allfolders[0]=~/^error:/) { @allfolders=(); } + return '
'. + &mt('Folder').': '. + &Apache::loncommon::select_form($folder,'folder', + ('' => &mt('INBOX'),'trash' => &mt('TRASH'), + 'new' => &mt('New Messages Only'), + 'critical' => &mt('Critical'), + 'sent' => &mt('Sent Messages'), + map { $_ => $_ } @allfolders)). + ' '.&mt('Show'). + ''. + '
'. + ''. + ($folder=~/^(new|critical)/?'
':''); +} + +sub scrollbuttons { + my ($start,$maxdis,$first,$finish,$total)=@_; + unless ($total>0) { return ''; } + $start++; $maxdis++;$first++;$finish++; + return + ''. + ''. + ' of '.$maxdis. + ''. + '
'. + &mt('Messages [_1] through [_2] of [_3]',$first,$finish,$total).''; +} + +# =============================================================== Folder suffix + +sub foldersuffix { + my $folder=shift; + unless ($folder) { return ''; } + return '_'.&Apache::lonnet::escape($folder); +} + # =============================================================== Status Change sub statuschange { - my ($msgid,$newstatus)=@_; - my %status=&Apache::lonnet::get('email_status',[$msgid]); + my ($msgid,$newstatus,$folder)=@_; + my $suffix=&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',{$msgid => $newstatus}); + &Apache::lonnet::put('email_status'.$suffix,{$msgid => $newstatus}); } if (($newstatus eq 'deleted') || ($newstatus eq 'new')) { - &Apache::lonnet::put('email_status',{$msgid => $newstatus}); + &Apache::lonnet::put('email_status'.$suffix,{$msgid => $newstatus}); } } +# ============================================================= 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)=@_; + my $srcsuffix=&foldersuffix($srcfolder); + my $trgsuffix=&foldersuffix($trgfolder); + +# Copy message + my %message=&Apache::lonnet::get('nohist_email'.$srcsuffix,[$msgid]); + &Apache::lonnet::put('nohist_email'.$trgsuffix,{$msgid => $message{$msgid}}); + +# Copy status + unless ($trgfolder eq 'trash') { + my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$msgid]); + &Apache::lonnet::put('email_status'.$trgsuffix,{$msgid => $status{$msgid}}); + } +# Delete orginals + &Apache::lonnet::del('nohist_email'.$srcsuffix,[$msgid]); + &Apache::lonnet::del('email_status'.$srcsuffix,[$msgid]); +} + # ======================================================= Display a course list sub discourse { my $r=shift; - my %courselist=&Apache::lonnet::dump( - 'classlist', - $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, - $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); + my $classlist = &Apache::loncoursedata::get_classlist(); my $now=time; my %lt=&Apache::lonlocal::texthash('cfa' => 'Check for All', 'cfs' => 'Check for Section/Group', @@ -559,43 +675,48 @@ sub discourse {   -  + 

ENDDISHEADER - my %coursepersonnel= - &Apache::lonnet::get_course_adv_roles(); + my %coursepersonnel=&Apache::lonnet::get_course_adv_roles(); + $r->print(''); foreach my $role (sort keys %coursepersonnel) { - foreach (split(/\,/,$coursepersonnel{$role})) { - my ($puname,$pudom)=split(/\:/,$_); - $r->print( - '
'. - &Apache::loncommon::plainname($puname, - $pudom).' ('.$_.'), '.$role.''); - } + foreach (split(/\,/,$coursepersonnel{$role})) { + my ($puname,$pudom)=split(/\:/,$_); + $r->print(''. + ''); + } } - - foreach (sort keys %courselist) { - my ($end,$start)=split(/\:/,$courselist{$_}); - my $active=1; - if (($end) && ($now>$end)) { $active=0; } - if ($active) { - my ($sname,$sdom)=split(/\:/,$_); - my %reply=&Apache::lonnet::get('environment', - ['firstname','middlename','lastname','generation'], - $sdom,$sname); - my $section=&Apache::lonnet::usection - ($sdom,$sname,$ENV{'request.course.id'}); - $r->print( - '
'. - $reply{'firstname'}.' '. - $reply{'middlename'}.' '. - $reply{'lastname'}.' '. - $reply{'generation'}. - ' ('.$_.') '.$section); - } + $r->print('
('.$_.'),'.$role.'
'); + my $sort = sub { + my $aname=lc($classlist->{$a}[&Apache::loncoursedata::CL_FULLNAME()]); + if (!$aname) { $aname=$a; } + my $bname=lc($classlist->{$b}[&Apache::loncoursedata::CL_FULLNAME()]); + if (!$bname) { $bname=$b; } + return $aname cmp $bname; + }; + foreach my $student (sort $sort (keys(%{$classlist}))) { + my $info=$classlist->{$student}; + my ($sname,$sdom,$status,$fullname,$section) = + (@{$info}[&Apache::loncoursedata::CL_SNAME(), + &Apache::loncoursedata::CL_SDOM(), + &Apache::loncoursedata::CL_STATUS(), + &Apache::loncoursedata::CL_FULLNAME(), + &Apache::loncoursedata::CL_SECTION()]); + next if ($status ne 'Active'); + my $key = 'send_to_&&&'.$section.'&&&_'.$student; + if (! defined($fullname) || $fullname eq '') { $fullname = $sname; } + $r->print(''); } + $r->print('
'.$sname.'@'.$sdom.''.$section. + '
'); } # ==================================================== Display Critical Message @@ -603,49 +724,50 @@ ENDDISHEADER sub discrit { my $r=shift; my $header = '

'.&mt('Critical Messages').'

'. - '
'. - ''; + ''. + ''; my %what=&Apache::lonnet::dump('critical'); my $result = ''; foreach (sort keys %what) { my %content=&unpackagemsg($what{$_}); next if ($content{'senderdomain'} eq ''); - $content{'message'}=~s/\n/\/g; - $result.='
'.&mt('From').': '. + $result.='
'.&mt('From').': '. &Apache::loncommon::aboutmewrapper( &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),$content{'sendername'},$content{'senderdomain'}).' ('. $content{'sendername'}.'@'. $content{'senderdomain'}.') '.$content{'time'}. - '
'.&mt('Subject').': '.$content{'subject'}. - '
'. + '
'.&mt('Subject').': '.$content{'subject'}. + '
'.
               &Apache::lontexconvert::msgtexconverted($content{'message'}).
-            '
'. + ''. &mt('You have to confirm that you received this message. After confirmation, this message will be moved to your regular inbox'). '
'. - ''. - ''; + ''. + ''; } # Check to see if there were any messages. if ($result eq '') { $result = "

".&mt('You have no critical messages.')."

". - ''.&mt('Select a course').''; + ''.&mt('Select a course').'
'. + ''.&mt('Communicate').''; } else { $r->print($header); } $r->print($result); - $r->print(''); + $r->print(''); } sub sortedmessages { - my ($blocked,$startblock,$endblock,$numblocked) = @_; - my @messages = &Apache::lonnet::getkeys('nohist_email'); + my ($blocked,$startblock,$endblock,$numblocked,$folder) = @_; + my $suffix=&foldersuffix($folder); + my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix); #unpack the varibles and repack into temp for sorting my @temp; foreach (@messages) { my $msgid=&Apache::lonnet::escape($_); my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)= - &Apache::lonmsg::unpackmsgid($msgid); + &Apache::lonmsg::unpackmsgid($msgid,$folder); my @temp1 = ($sendtime,$shortsubj,$fromname,$fromdomain,$status, $msgid); # Check whether message was sent during blocking period. @@ -692,10 +814,108 @@ sub sortedmessages { return @temp; } +# ======================================================== Display new messages + + +sub disnew { + my $r=shift; + my %lt=&Apache::lonlocal::texthash( + 'nm' => 'New Messages', + 'su' => 'Subject', + 'da' => 'Date', + 'us' => 'Username', + 'op' => 'Open', + 'do' => 'Domain' + ); + my @msgids = sort split(/\&/,&Apache::lonnet::reply + ('keys:'.$ENV{'user.domain'}.':'. + $ENV{'user.name'}.':nohist_email', + $ENV{'user.home'})); + 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); + foreach (@msgids) { + my ($sendtime,$shortsubj,$fromname,$fromdom,$status)= + &Apache::lonmsg::unpackmsgid($_); + if (defined($sendtime) && $sendtime!~/error/) { + 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 => $_, + sendtime => $sendtime, + shortsub => &Apache::lonnet::unescape($shortsubj), + from => $fromname, + fromdom => $fromdom + } + } + } + } + } + if ($#newmsgs >= 0) { + $r->print(<$lt{'nm'} + + +TABLEHEAD + foreach my $msg (@newmsgs) { + $r->print(<<"ENDLINK"); + + +ENDLINK + foreach ('sendtime','from','fromdom','shortsub') { + $r->print(""); + } + $r->print(""); + } + $r->print('
 $lt{'da'}$lt{'us'}$lt{'do'}$lt{'su'}
$lt{'op'}$msg->{$_}
'); + } elsif ($numblocked == 0) { + $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=shift; + 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; @@ -723,42 +943,57 @@ sub disall { } ENDDISHEADER - $r->print('

'.&mt('Display All Messages').'

'. - '
 '); + my $fsqs='&folder='.$folder; + my @temp=sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder); + my $totalnumber=$#temp+1; + unless ($totalnumber>0) { + $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(''. + ''); + $r->print(''.&mt('Date').''); } else { - $r->print(''.&mt('Date').''); + $r->print(''.&mt('Date').''); } $r->print(''); + $r->print(''.&mt('Status').''); } else { - $r->print(''.&mt('Status').''); + $r->print(''.&mt('Status').''); } - $r->print(''); - my @temp=sortedmessages(\%blocked,$startblock,$endblock,\$numblocked); - foreach (@temp){ - my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @$_; + $r->print("\n"); + for (my $n=$firstdis;$n<=$lastdis;$n++) { + my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID)= @{$temp[$n]}; if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) { if ($status eq 'new') { $r->print(''); @@ -769,21 +1004,36 @@ ENDDISHEADER } else { $r->print(''); } - $r->print(''. + $r->print(''. ''); + $status."\n"); + } elsif ($status eq 'deleted') { +# purge + &movemsg(&Apache::lonnet::unescape($origID),$folder,'trash'); } } - $r->print('
 '); if ($ENV{'form.sortedby'} eq "revdate") { - $r->print(''.&mt('Date').''); if ($ENV{'form.sortedby'} eq "revuser") { - $r->print(''.&mt('Username').''); + $r->print(''.&mt('Username').''); } else { - $r->print(''.&mt('Username').''); + $r->print(''.&mt('Username').''); } $r->print(''); if ($ENV{'form.sortedby'} eq "revdomain") { - $r->print(''.&mt('Domain').''); + $r->print(''.&mt('Domain').''); } else { - $r->print(''.&mt('Domain').''); + $r->print(''.&mt('Domain').''); } $r->print(''); if ($ENV{'form.sortedby'} eq "revsubject") { - $r->print(''.&mt('Subject').''); + $r->print(''.&mt('Subject').''); } else { - $r->print(''.&mt('Subject').''); + $r->print(''.&mt('Subject').''); } $r->print(''); if ($ENV{'form.sortedby'} eq "revstatus") { - $r->print(''.&mt('Status').'
'.&mt('Open').''.&mt('Delete').''.&mt('Open').''. + ($folder ne 'trash'?''.&mt('Delete'):' ').''.&Apache::lonlocal::locallocaltime($sendtime).''. $fromname.''.$fromdomain.''. &Apache::lonnet::unescape($shortsubj).''. - $status.'

'. - ''.&mt('Check All').' '. - ''.&mt('Uncheck All').'

'. - ''. - ''. - ''); + $r->print("

\n

". + ''.&mt('Check All').' '. + ''.&mt('Uncheck All').'

'. + ''); + if ($folder ne 'trash') { + $r->print( + '

'); + } + $r->print('

'); + my @allfolders=&Apache::lonnet::getkeys('email_folders'); + if ($allfolders[0]=~/^error:/) { @allfolders=(); } + $r->print( + &Apache::loncommon::select_form('','movetofolder', + ( map { $_ => $_ } @allfolders)) + ); + my $postedstartdis=$startdis+1; + $r->print(''); if ($numblocked > 0) { my $beginblock = &Apache::lonlocal::locallocaltime($startblock); my $finishblock = &Apache::lonlocal::locallocaltime($endblock); @@ -791,13 +1041,13 @@ ENDDISHEADER $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); } - $r->print(''); } # ============================================================== Compose output sub compout { - my ($r,$forwarding,$replying,$broadcast,$replycrit)=@_; + my ($r,$forwarding,$replying,$broadcast,$replycrit,$folder)=@_; + my $suffix=&foldersuffix($folder); if ($broadcast eq 'individual') { &printheader($r,'/adm/email?compose=individual', @@ -828,6 +1078,7 @@ sub compout { my $dispcrit=''; my $dissub=''; my $dismsg=''; + my $disbase=''; my $func=&mt('Send New'); my %lt=&Apache::lonlocal::texthash('us' => 'Username', 'do' => 'Domain', @@ -839,17 +1090,19 @@ sub compout { if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { my $crithelp = Apache::loncommon::help_open_topic("Course_Critical_Message"); $dispcrit= - ' '.&mt('Send as critical message').' ' . $crithelp . - '
'. - ' '.&mt('Send as critical message').' ' . - &mt('and return receipt') . $crithelp . '

'; + '

' . $crithelp . + '

'. + '' . $crithelp . + '

'; } my %message; my %content; my $defdom=$ENV{'user.domain'}; if ($forwarding) { - %message=&Apache::lonnet::get('nohist_email',[$forwarding]); - %content=&unpackagemsg($message{$forwarding}); + %message=&Apache::lonnet::get('nohist_email'.$suffix,[$forwarding]); + %content=&unpackagemsg($message{$forwarding},$folder); $dispcrit.=''; $func=&mt('Forward'); @@ -857,20 +1110,33 @@ sub compout { $dissub=&mt('Forwarding').': '.$content{'subject'}; $dismsg=&mt('Forwarded message from').' '. $content{'sendername'}.' '.&mt('at').' '.$content{'senderdomain'}; + if ($content{'baseurl'}) { + $disbase=''; + } } if ($replying) { - %message=&Apache::lonnet::get('nohist_email',[$replying]); - %content=&unpackagemsg($message{$replying}); - $dispcrit.=''; - $func=&mt('Replying to'); + %message=&Apache::lonnet::get('nohist_email'.$suffix,[$replying]); + %content=&unpackagemsg($message{$replying},$folder); + $dispcrit.=''; + $func=&mt('Send Reply to'); $dissub=&mt('Reply').': '.$content{'subject'}; $dismsg='> '.$content{'message'}; $dismsg=~s/\r/\n/g; $dismsg=~s/\f/\n/g; $dismsg=~s/\n+/\n\> /g; + if ($content{'baseurl'}) { + $disbase=''; + if ($ENV{'user.adv'}) { + $disbase.=' '. + &mt('Show re-usable messages').'
'; + } + } } + my $citation=&displayresource(%content); if ($ENV{'form.recdom'}) { $defdom=$ENV{'form.recdom'}; } $r->print( '
print(<<"ENDREC"); -$lt{'us'}:$selectlink +$lt{'us'}:$selectlink $lt{'do'}: $domform ENDREC @@ -910,8 +1176,10 @@ $latexHelp


$dispcrit +$disbase - +
+$citation ENDCOMP } else { # $broadcast is 'upload' $r->print(< ('. $content{'sendername'}.'@'. $content{'senderdomain'}.') '.$content{'time'}. - '
'. + '
'.
               &Apache::lontexconvert::msgtexconverted($content{'message'}).
-	      '
'; + ''; } # Check to see if there were any messages. if ($result eq '') { @@ -1291,8 +1559,8 @@ END $$ltext{'star'}: $startform
$$ltext{'endd'}:  $endform $settername - - $lt{'modi'}? 
$lt{'canc'}?   + +
END $parmcount ++; @@ -1344,8 +1612,8 @@ sub display_addblocker_table { $$ltext{'star'}: $startform
$$ltext{'endd'}:  $endform - - $lt{'addb'}?  + + @@ -1462,7 +1730,8 @@ END # ----------------------------------------------------------- Display a message sub displaymessage { - my ($r,$msgid)=@_; + my ($r,$msgid,$folder)=@_; + my $suffix=&foldersuffix($folder); my %blocked = (); my %setters = (); my $startblock = 0; @@ -1470,16 +1739,17 @@ sub displaymessage { my $numblocked = 0; # info to generate "next" and "previous" buttons and check if message is blocked &blockcheck(\%setters,\$startblock,\$endblock); - my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked); + my @messages=&sortedmessages(\%blocked,$startblock,$endblock,\$numblocked,$folder); 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'); - my %message=&Apache::lonnet::get('nohist_email',[$msgid]); + &statuschange($msgid,'read',$folder); + my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]); my %content=&unpackagemsg($message{$msgid}); + my $counter=0; $r->print('
');
     my $escmsgid=&Apache::lonnet::escape($msgid);
@@ -1504,8 +1774,9 @@ sub displaymessage {
 	      '">'.&mt('Mark Unread').''.
 	      'Delete'.
-	      ''.&mt('Display all Messages').'');
+	      ''.&mt('Back to Folder Display').'');
     if ($counter > 0){
 	$r->print(''.&mt('Previous').'');
@@ -1516,21 +1787,62 @@ sub displaymessage {
     }
     $r->print('');
     $r->print('
'.&mt('Subject').': '.$content{'subject'}.
-	      '
'.&mt('From').': '.
+	      ($folder ne 'sent'?'
'.&mt('From').': '.
 	      &Apache::loncommon::aboutmewrapper(
 						 &Apache::loncommon::plainname($content{'sendername'},$content{'senderdomain'}),
 						 $content{'sendername'},$content{'senderdomain'}).' ('.
 	      $content{'sendername'}.' at '.
-	      $content{'senderdomain'}.') '.
+	      $content{'senderdomain'}.') ':'
'.&mt('To').': '.
+	      &Apache::loncommon::aboutmewrapper(
+						 &Apache::loncommon::plainname($content{'recuser'},$content{'recdomain'}),
+						 $content{'recuser'},$content{'recdomain'}).' ('.
+	      $content{'recuser'}.' at '.
+	      $content{'recdomain'}.') ').
 	      ($content{'courseid'}?'
'.&mt('Course').': '.$courseinfo{'description'}.
 	       ($content{'coursesec'}?' ('.&mt('Group/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).
-	      '
'.$content{'citation'}.'
');
+	      '
'.&displayresource(%content).'

'); return; } +# =========================================================== Show the citation + +sub displayresource { + my %content=@_; +# +# If the recipient is in the same course that the message was sent from and +# has sufficient privileges, show "all details," else show citation +# + if (($ENV{'request.course.id'} eq $content{'courseid'}) + && (&Apache::lonnet::allowed('vgr',$content{'courseid'}))) { + my $symb=&Apache::lonnet::symbread($content{'baseurl'}); +# Could not get a symb, give up + unless ($symb) { return $content{'citation'}; } +# Have a symb, can render + return '

'.&mt('Current attempts of student (if applicable)').'

'. + &Apache::loncommon::get_previous_attempt($symb, + $content{'sendername'}, + $content{'senderdomain'}, + $content{'courseid'}). + '

'.&mt('Current screen output (if applicable)').'

'. + &Apache::loncommon::get_student_view($symb, + $content{'sendername'}, + $content{'senderdomain'}, + $content{'courseid'}). + '

'.&mt('Correct Answer(s) (if applicable)').'

'. + &Apache::loncommon::get_student_answers($symb, + $content{'sendername'}, + $content{'senderdomain'}, + $content{'courseid'}); + } else { + return $content{'citation'}; + } +} + # ================================================================== The Header sub header { @@ -1556,6 +1868,143 @@ sub printheader { &header($r,$title,$baseurl); } +# ------------------------------------------------------------ Store the comment + +sub storecomment { + my ($r)=@_; + my $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'}); + my $cleanmsgtxt=''; + foreach (split(/[\n\r]/,$msgtxt)) { + unless ($_=~/^\s*(\>|\>\;)/) { + $cleanmsgtxt.=$_."\n"; + } + } + my $key=&Apache::lonnet::escape($ENV{'form.baseurl'}).'___'.time; + &Apache::lonnet::put('nohist_stored_comments',{ $key => $cleanmsgtxt }); +} + +sub storedcommentlisting { + my ($r)=@_; + my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef, + '^'.&Apache::lonnet::escape(&Apache::lonnet::escape($ENV{'form.showcommentbaseurl'}))); + $r->print(''); + if ((keys %msgs)[0]=~/^error\:/) { + $r->print(&mt('No stored comments yet.')); + } else { + my $found=0; + foreach (sort keys %msgs) { + $r->print("\n".$msgs{$_}."
"); + $found=1; + } + unless ($found) { + $r->print(&mt('No stored comments yet for this resource.')); + } + } +} + +# ---------------------------------------------------------------- Send an email + +sub sendoffmail { + my ($r,$folder)=@_; + my $suffix=&foldersuffix($folder); + my $sendstatus=''; + if ($ENV{'form.send'}) { + &printheader($r,'','Messages being sent.'); + $r->rflush(); + my %content=(); + undef %content; + if ($ENV{'form.forwid'}) { + my $msgid=$ENV{'form.forwid'}; + my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]); + %content=&unpackagemsg($message{$msgid},1); + &statuschange($msgid,'forwarded',$folder); + $ENV{'form.message'}.="\n\n-- Forwarded message --\n\n". + $content{'message'}; + } + if ($ENV{'form.replyid'}) { + my $msgid=$ENV{'form.replyid'}; + my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]); + %content=&unpackagemsg($message{$msgid},1); + &statuschange($msgid,'replied',$folder); + } + my %toaddr=(); + undef %toaddr; + if ($ENV{'form.sendmode'} eq 'group') { + foreach (keys %ENV) { + if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) { + $toaddr{$1}=''; + } + } + } elsif ($ENV{'form.sendmode'} eq 'upload') { + foreach (split(/[\n\r\f]+/,$ENV{'form.upfile'})) { + my ($rec,$txt)=split(/\s*\:\s*/,$_); + if ($txt) { + $rec=~s/\@/\:/; + $toaddr{$rec}.=$txt."\n"; + } + } + } else { + $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}=''; + } + if ($ENV{'form.additionalrec'}) { + foreach (split(/\,/,$ENV{'form.additionalrec'})) { + my ($auname,$audom)=split(/\@/,$_); + $toaddr{$auname.':'.$audom}=''; + } + } + + foreach (keys %toaddr) { + my ($recuname,$recdomain)=split(/\:/,$_); + my $msgtxt; + if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && + (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { + $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'},1); + } else { + $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'}); + } + if ($toaddr{$_}) { $msgtxt.='
'.$toaddr{$_}; } + my $thismsg; + if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && + (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { + $r->print(&mt('Sending critical message').' '.$recuname.'@'.$recdomain.': '); + $thismsg=&user_crit_msg($recuname,$recdomain, + &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), + $msgtxt, + $ENV{'form.sendbck'},$ENV{'form.permanent'}); + } else { + $r->print(&mt('Sending').' '.$recuname.'@'.$recdomain.': '); + $thismsg=&user_normal_msg($recuname,$recdomain, + &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), + $msgtxt, + $content{'citation'},undef,undef,$ENV{'form.permanent'}); + if (($ENV{'request.course.id'}) && ($ENV{'form.sendmode'} eq 'group')) { + &user_normal_msg_raw( + $ENV{'course.'.$ENV{'request.course.id'}.'.num'}, + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, + 'Broadcast ['.$recuname.':'.$recdomain.']', + $msgtxt); + } + } + $r->print($thismsg.'
'); + $sendstatus.=' '.$thismsg; + } + } else { + &printheader($r,'','No messages sent.'); + } + if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { + $r->print('
'.&mt('Completed.').''); + if ($ENV{'form.displayedcrit'}) { + &discrit($r); + } else { + &Apache::loncommunicate::menu($r); + } + } else { + $r->print( + '

'.&mt('Could not deliver message').'

'. + &mt('Please use the browser "Back" button and correct the recipient addresses') + ); + } +} # ===================================================================== Handler @@ -1573,8 +2022,10 @@ sub handler { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['display','replyto','forward','markread','markdel','markunread', 'sendreply','compose','sendmail','critical','recname','recdom', - 'recordftf','sortedby','block']); + 'recordftf','sortedby','block','folder','startdis','interdis', + 'showcommentbaseurl','dismode']); $sqs='&sortedby='.$ENV{'form.sortedby'}; + # ------------------------------------------------------ They checked for email unless ($ENV{'form.block'}) { &Apache::lonnet::put('email_status',{'recnewemail'=>0}); @@ -1588,12 +2039,46 @@ sub handler { text=>"Communication/Messages", faq=>12,bug=>'Communication Tools',}); +# ------------------------------------------------------------------ Get Folder + + my $folder=$ENV{'form.folder'}; + unless ($folder) { + $folder=''; + } else { + $sqs.='&folder='.&Apache::lonnet::escape($folder); + } + +# --------------------------------------------------------------------- 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'}); + &displaymessage($r,$ENV{'form.display'},$folder); } elsif ($ENV{'form.replyto'}) { - &compout($r,'',$ENV{'form.replyto'}); + &compout($r,'',$ENV{'form.replyto'},undef,undef,$folder); } elsif ($ENV{'form.confirm'}) { &printheader($r,'','Confirmed Receipt'); foreach (keys %ENV) { @@ -1613,26 +2098,42 @@ sub handler { &printheader($r,'','Displaying Critical Messages'); &discrit($r); } elsif ($ENV{'form.forward'}) { - &compout($r,$ENV{'form.forward'}); + &compout($r,$ENV{'form.forward'},undef,undef,undef,$folder); } elsif ($ENV{'form.markdel'}) { &printheader($r,'','Deleted Message'); - &statuschange($ENV{'form.markdel'},'deleted'); - &disall($r); + &statuschange($ENV{'form.markdel'},'deleted',$folder); + &Apache::loncommunicate::menu($r); + &disall($r,$folder); + } elsif ($ENV{'form.markedmove'}) { + my $total=0; + foreach (keys %ENV) { + if ($_=~/^form\.delmark_(.*)$/) { + &movemsg(&Apache::lonnet::unescape($1),$folder, + $ENV{'form.movetofolder'}); + $total++; + } + } + &printheader($r,'','Moved Messages'); + $r->print('Moved '.$total.' message(s)

'); + &Apache::loncommunicate::menu($r); + &disall($r,$folder); } elsif ($ENV{'form.markeddel'}) { my $total=0; foreach (keys %ENV) { if ($_=~/^form\.delmark_(.*)$/) { - &statuschange(&Apache::lonnet::unescape($1),'deleted'); + &statuschange(&Apache::lonnet::unescape($1),'deleted',$folder); $total++; } } &printheader($r,'','Deleted Messages'); $r->print('Deleted '.$total.' message(s)

'); - &disall($r); + &Apache::loncommunicate::menu($r); + &disall($r,$folder); } elsif ($ENV{'form.markunread'}) { &printheader($r,'','Marked Message as Unread'); &statuschange($ENV{'form.markunread'},'new'); - &disall($r); + &Apache::loncommunicate::menu($r); + &disall($r,$folder); } elsif ($ENV{'form.compose'}) { &compout($r,'','',$ENV{'form.compose'}); } elsif ($ENV{'form.recordftf'}) { @@ -1640,94 +2141,22 @@ sub handler { } elsif ($ENV{'form.block'}) { &examblock($r,$ENV{'form.block'}); } elsif ($ENV{'form.sendmail'}) { - my $sendstatus=''; - if ($ENV{'form.send'}) { - &printheader($r,'','Messages being sent.'); - $r->rflush(); - my %content=(); - undef %content; - if ($ENV{'form.forwid'}) { - my $msgid=$ENV{'form.forwid'}; - my %message=&Apache::lonnet::get('nohist_email',[$msgid]); - %content=&unpackagemsg($message{$msgid},1); - &statuschange($msgid,'forwarded'); - $ENV{'form.message'}.="\n\n-- Forwarded message --\n\n". - $content{'message'}; - } - my %toaddr=(); - undef %toaddr; - if ($ENV{'form.sendmode'} eq 'group') { - foreach (keys %ENV) { - if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) { - $toaddr{$1}=''; - } - } - } elsif ($ENV{'form.sendmode'} eq 'upload') { - foreach (split(/[\n\r\f]+/,$ENV{'form.upfile'})) { - my ($rec,$txt)=split(/\s*\:\s*/,$_); - if ($txt) { - $rec=~s/\@/\:/; - $toaddr{$rec}.=$txt."\n"; - } - } - } else { - $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}=''; - } - if ($ENV{'form.additionalrec'}) { - foreach (split(/\,/,$ENV{'form.additionalrec'})) { - my ($auname,$audom)=split(/\@/,$_); - $toaddr{$auname.':'.$audom}=''; - } - } - - foreach (keys %toaddr) { - my ($recuname,$recdomain)=split(/\:/,$_); - my $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'}); - if ($toaddr{$_}) { $msgtxt.='

'.$toaddr{$_}; } - my $thismsg; - if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && - (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { - $r->print(&mt('Sending critical message').' '.$recuname.'@'.$recdomain.': '); - $thismsg=&user_crit_msg($recuname,$recdomain, - &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), - $msgtxt, - $ENV{'form.sendbck'}); - } else { - $r->print(&mt('Sending').' '.$recuname.'@'.$recdomain.': '); - $thismsg=&user_normal_msg($recuname,$recdomain, - &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), - $msgtxt, - $content{'citation'}); - if (($ENV{'request.course.id'}) && ($ENV{'form.sendmode'} eq 'group')) { - &user_normal_msg_raw( - $ENV{'course.'.$ENV{'request.course.id'}.'.num'}, - $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, - 'Broadcast ['.$recuname.':'.$recdomain.']', - $msgtxt); - } - } - $r->print($thismsg.'
'); - $sendstatus.=' '.$thismsg; - } - } else { - &printheader($r,'','No messages sent.'); - } - if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { - $r->print('
'.&mt('Completed.').''); - if ($ENV{'form.displayedcrit'}) { - &discrit($r); - } else { - &Apache::loncommunicate::menu($r); - } - } else { - $r->print( - '

'.&mt('Could not deliver message').'

'. - &mt('Please use the browser "Back" button and correct the recipient addresses') - ); + &sendoffmail($r,$folder); + if ($ENV{'form.storebasecomment'}) { + &storecomment($r); } + &disall($r,$folder); + } 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'); - &disall($r); + &Apache::loncommunicate::menu($r); + &disall($r,$folder); } $r->print(''); return OK;