version 1.19, 2006/04/26 14:43:03
|
version 1.29, 2006/05/30 12:46:09
|
Line 125 use Apache::lonlocal;
|
Line 125 use Apache::lonlocal;
|
use Apache::loncommunicate; |
use Apache::loncommunicate; |
use Apache::lonfeedback; |
use Apache::lonfeedback; |
use Apache::lonrss(); |
use Apache::lonrss(); |
|
use Apache::lonselstudent(); |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
# Querystring component with sorting type |
# Querystring component with sorting type |
my $sqs; |
my $sqs; |
Line 259 sub movemsg {
|
Line 262 sub movemsg {
|
# ======================================================= Display a course list |
# ======================================================= Display a course list |
|
|
sub discourse { |
sub discourse { |
my $r=shift; |
my $result; |
my $classlist = &Apache::loncoursedata::get_classlist(); |
my ($course_personnel, |
my $now=time; |
$current_members, |
my %lt=&Apache::lonlocal::texthash('cfa' => 'Check All', |
$expired_members, |
'cfs' => 'Check Section/Group', |
$future_members) = |
'cfn' => 'Uncheck All'); |
&Apache::lonselstudent::get_people_in_class($env{'request.course.sec'}); |
$r->print(<<ENDDISHEADER); |
unshift @$current_members, (@$course_personnel); |
<input type="hidden" name="sendmode" value="group" /> |
my %defaultUsers; |
<script pe="text/javascript"> |
|
function checkall() { |
$result = &Apache::lonselstudent::render_student_list($current_members, |
for (i=0; i<document.forms.compemail.elements.length; i++) { |
"compemail", |
if |
"current", |
(document.forms.compemail.elements[i].name.indexOf('send_to_')==0) { |
\%defaultUsers, |
document.forms.compemail.elements[i].checked=true; |
1,"selectedusers",1); |
} |
|
} |
$result .= &Apache::lonselstudent::render_student_list($expired_members, |
} |
"compemail", |
|
"expired", |
function checksec() { |
\%defaultUsers, |
for (i=0; i<document.forms.compemail.elements.length; i++) { |
1, "selectedusers",0); |
if |
$result .= &Apache::lonselstudent::render_student_list($future_members, |
(document.forms.compemail.elements[i].name.indexOf |
"compemail", |
('send_to_&&&'+document.forms.compemail.chksec.value+'&&&')==0) { |
"future", |
document.forms.compemail.elements[i].checked=true; |
\%defaultUsers, |
} |
1, "selectedusers", 0); |
} |
return $result; |
} |
|
|
|
function uncheckall() { |
|
for (i=0; i<document.forms.compemail.elements.length; i++) { |
|
if |
|
(document.forms.compemail.elements[i].name.indexOf('send_to_')==0) { |
|
document.forms.compemail.elements[i].checked=false; |
|
} |
|
} |
|
} |
|
</script> |
|
<input type="button" onClick="checkall()" value="$lt{'cfa'}" /> |
|
<input type="button" onClick="checksec()" value="$lt{'cfs'}" /> |
|
<input type="text" size="5" name="chksec" /> |
|
<input type="button" onClick="uncheckall()" value="$lt{'cfn'}" /> |
|
<p> |
|
ENDDISHEADER |
|
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles(); |
|
$r->print('<table>'); |
|
foreach my $role (sort keys %coursepersonnel) { |
|
foreach (split(/\,/,$coursepersonnel{$role})) { |
|
my ($puname,$pudom)=split(/\:/,$_); |
|
$r->print('<tr><td><label>'. |
|
'<input type="checkbox" name="send_to_&&&&&&_'. |
|
$puname.':'.$pudom.'" /> '. |
|
&Apache::loncommon::plainname($puname,$pudom). |
|
'</label></td>'. |
|
'<td>('.$_.'),</td><td><i>'.$role.'</i></td></tr>'); |
|
} |
|
} |
|
$r->print('</table><table>'); |
|
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'); |
|
next if ($env{'request.course.sec'} && |
|
$section ne $env{'request.course.sec'}); |
|
my $key = 'send_to_&&&'.$section.'&&&_'.$student; |
|
if (! defined($fullname) || $fullname eq '') { $fullname = $sname; } |
|
$r->print('<tr><td><label>'. |
|
qq{<input type="checkbox" name="$key" />}.(' 'x2). |
|
$fullname.'</label></td><td>'.$sname.':'.$sdom.'</td><td>'.$section. |
|
'</td></tr>'); |
|
} |
|
$r->print('</table>'); |
|
} |
} |
|
|
# ==================================================== Display Critical Message |
# ==================================================== Display Critical Message |
Line 400 sub sortedmessages {
|
Line 346 sub sortedmessages {
|
} |
} |
|
|
foreach my $msgid (@messages) { |
foreach my $msgid (@messages) { |
my $esc_msgid=&Apache::lonnet::escape($msgid); |
my $esc_msgid=&escape($msgid); |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid)= |
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$fromcid)= |
&Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef, |
&Apache::lonmsg::unpackmsgid($esc_msgid,$folder,undef, |
\%status_cache); |
\%status_cache); |
Line 526 sub disnew {
|
Line 472 sub disnew {
|
&Apache::lonnet::get('email_status',\@msgids); |
&Apache::lonnet::get('email_status',\@msgids); |
my %descriptions; |
my %descriptions; |
foreach (@msgids) { |
foreach (@msgids) { |
my $msgid=&Apache::lonnet::escape($_); |
my $msgid=&escape($_); |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
&Apache::lonmsg::unpackmsgid($msgid,undef,undef,\%status_cache); |
&Apache::lonmsg::unpackmsgid($msgid,undef,undef,\%status_cache); |
if (defined($sendtime) && $sendtime!~/error/) { |
if (defined($sendtime) && $sendtime!~/error/) { |
Line 709 ENDDISHEADER
|
Line 655 ENDDISHEADER
|
$dis_name = join('<br />',@{$recv_name}); |
$dis_name = join('<br />',@{$recv_name}); |
$dis_domain = join('<br />',@{$recv_domain}); |
$dis_domain = join('<br />',@{$recv_domain}); |
} else { |
} else { |
my $msg_id = &Apache::lonnet::unescape($origID); |
my $msg_id = &unescape($origID); |
my %message = &Apache::lonnet::get('nohist_email'.$suffix, |
my %message = &Apache::lonnet::get('nohist_email'.$suffix, |
[$msg_id]); |
[$msg_id]); |
my %content = &Apache::lonmsg::unpackagemsg($message{$msg_id}); |
my %content = &Apache::lonmsg::unpackagemsg($message{$msg_id}); |
Line 728 ENDDISHEADER
|
Line 674 ENDDISHEADER
|
} elsif ($status eq 'deleted') { |
} elsif ($status eq 'deleted') { |
# purge |
# purge |
my ($result,$msg) = |
my ($result,$msg) = |
&movemsg(&Apache::lonnet::unescape($origID),$folder,'trash'); |
&movemsg(&unescape($origID),$folder,'trash'); |
|
|
} |
} |
} |
} |
Line 772 sub compout {
|
Line 718 sub compout {
|
'Broadcast Message'); |
'Broadcast Message'); |
} elsif ($forwarding) { |
} elsif ($forwarding) { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/adm/email?display=".&Apache::lonnet::escape($forwarding), |
({href=>"/adm/email?display=".&escape($forwarding), |
text=>"Display Message"}); |
text=>"Display Message"}); |
&printheader($r,'/adm/email?forward='.&Apache::lonnet::escape($forwarding), |
&printheader($r,'/adm/email?forward='.&escape($forwarding), |
'Forwarding a Message'); |
'Forwarding a Message'); |
} elsif ($replying) { |
} elsif ($replying) { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/adm/email?display=".&Apache::lonnet::escape($replying), |
({href=>"/adm/email?display=".&escape($replying), |
text=>"Display Message"}); |
text=>"Display Message"}); |
&printheader($r,'/adm/email?replyto='.&Apache::lonnet::escape($replying), |
&printheader($r,'/adm/email?replyto='.&escape($replying), |
'Replying to a Message'); |
'Replying to a Message'); |
} elsif ($replycrit) { |
} elsif ($replycrit) { |
$r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>'); |
$r->print('<h3>'.&mt('Replying to a Critical Message').'</h3>'); |
Line 830 sub compout {
|
Line 776 sub compout {
|
$dismsg=&mt('Forwarded message from').' '. |
$dismsg=&mt('Forwarded message from').' '. |
$content{'sendername'}.' '.&mt('at').' '.$content{'senderdomain'}; |
$content{'sendername'}.' '.&mt('at').' '.$content{'senderdomain'}; |
if ($content{'baseurl'}) { |
if ($content{'baseurl'}) { |
$disbase='<input type="hidden" name="baseurl" value="'.&Apache::lonnet::escape($content{'baseurl'}).'" />'; |
$disbase='<input type="hidden" name="baseurl" value="'.&escape($content{'baseurl'}).'" />'; |
} |
} |
} |
} |
if ($replying) { |
if ($replying) { |
Line 846 sub compout {
|
Line 792 sub compout {
|
$dismsg=~s/\f/\n/g; |
$dismsg=~s/\f/\n/g; |
$dismsg=~s/\n+/\n\> /g; |
$dismsg=~s/\n+/\n\> /g; |
if ($content{'baseurl'}) { |
if ($content{'baseurl'}) { |
$disbase='<input type="hidden" name="baseurl" value="'.&Apache::lonnet::escape($content{'baseurl'}).'" />'; |
$disbase='<input type="hidden" name="baseurl" value="'.&escape($content{'baseurl'}).'" />'; |
if ($env{'user.adv'}) { |
if ($env{'user.adv'}) { |
$disbase.='<label><input type="checkbox" name="storebasecomment" />'.&mt('Store message for re-use'). |
$disbase.='<label><input type="checkbox" name="storebasecomment" />'.&mt('Store message for re-use'). |
'</label> <a href="/adm/email?showcommentbaseurl='. |
'</label> <a href="/adm/email?showcommentbaseurl='. |
&Apache::lonnet::escape($content{'baseurl'}).'" target="comments">'. |
&escape($content{'baseurl'}).'" target="comments">'. |
&mt('Show re-usable messages').'</a><br />'; |
&mt('Show re-usable messages').'</a><br />'; |
} |
} |
} |
} |
} |
} |
my $citation=&displayresource(%content); |
my $citation=&displayresource(%content); |
if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; } |
if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; } |
$r->print( |
if ($env{'form.text'}) { $dismsg=$env{'form.text'}; } |
|
if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; } |
|
$r->print( |
'<form action="/adm/email" name="compemail" method="post"'. |
'<form action="/adm/email" name="compemail" method="post"'. |
' enctype="multipart/form-data">'."\n". |
' enctype="multipart/form-data">'."\n". |
'<input type="hidden" name="sendmail" value="on" />'."\n". |
'<input type="hidden" name="sendmail" value="on" />'."\n". |
Line 932 ENDUPLOAD
|
Line 880 ENDUPLOAD
|
} |
} |
if ($broadcast eq 'group') { |
if ($broadcast eq 'group') { |
&discourse($r); |
&discourse($r); |
|
my $studentsel = &discourse(); |
|
$r->print($studentsel); |
} |
} |
$r->print('</form>'. |
$r->print('</form>'. |
&Apache::lonfeedback::generate_preview_button('compemail','message'). |
&Apache::lonfeedback::generate_preview_button('compemail','message'). |
Line 992 sub disfacetoface {
|
Line 942 sub disfacetoface {
|
$result .='<h3>'.&mt('Broadcast Message').'</h3>'; |
$result .='<h3>'.&mt('Broadcast Message').'</h3>'; |
if ($content{'subject'}=~/^Broadcast\./) { |
if ($content{'subject'}=~/^Broadcast\./) { |
if (defined($content{'coursemsgid'})) { |
if (defined($content{'coursemsgid'})) { |
my $crsmsgid = &Apache::lonnet::escape($content{'coursemsgid'}); |
my $crsmsgid = &escape($content{'coursemsgid'}); |
my $broadcast_message = &general_message($crsmsgid); |
my $broadcast_message = &general_message($crsmsgid); |
$content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$broadcast_message; |
$content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$broadcast_message; |
} else { |
} else { |
Line 1005 sub disfacetoface {
|
Line 955 sub disfacetoface {
|
} else { |
} else { |
$result.='<h3>'.&mt('Critical Message').'</h3>'; |
$result.='<h3>'.&mt('Critical Message').'</h3>'; |
if (defined($content{'coursemsgid'})) { |
if (defined($content{'coursemsgid'})) { |
my $crsmsgid=&Apache::lonnet::escape($content{'coursemsgid'}); |
my $crsmsgid=&escape($content{'coursemsgid'}); |
my $critical_message = &general_message($crsmsgid); |
my $critical_message = &general_message($crsmsgid); |
$content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$critical_message; |
$content{'message'} = '<b>'.&mt('Subject').': '.$content{'message'}.'</b><br />'.$critical_message; |
} else { |
} else { |
Line 1310 END
|
Line 1260 END
|
|
|
my ($setuname,$setudom,$title) = |
my ($setuname,$setudom,$title) = |
&parse_block_record($$records{$record}); |
&parse_block_record($$records{$record}); |
$title = &HTML::Entities::encode($title,'"<>'); |
$title = &HTML::Entities::encode($title,'"<>&'); |
my $settername = &Apache::loncommon::plainname($setuname,$setudom); |
my $settername = &Apache::loncommon::plainname($setuname,$setudom); |
$r->print(&Apache::loncommon::start_data_table_row()); |
$r->print(&Apache::loncommon::start_data_table_row()); |
$r->print(<<"END"); |
$r->print(<<"END"); |
Line 1486 sub displaymessage {
|
Line 1436 sub displaymessage {
|
|
|
my $counter=0; |
my $counter=0; |
$r->print('<pre>'); |
$r->print('<pre>'); |
my $escmsgid=&Apache::lonnet::escape($msgid); |
my $escmsgid=&escape($msgid); |
foreach (@messages) { |
foreach (@messages) { |
if ($_->[5] eq $escmsgid){ |
if ($_->[5] eq $escmsgid){ |
last; |
last; |
Line 1496 sub displaymessage {
|
Line 1446 sub displaymessage {
|
$r->print('</pre>'); |
$r->print('</pre>'); |
my $number_of_messages = scalar(@messages); #subtract 1 for last index |
my $number_of_messages = scalar(@messages); #subtract 1 for last index |
# start output |
# start output |
&printheader($r,'/adm/email?display='.&Apache::lonnet::escape($msgid),'Display a Message','',$content{'baseurl'}); |
&printheader($r,'/adm/email?display='.&escape($msgid),'Display a Message','',$content{'baseurl'}); |
my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'}); |
my %courseinfo=&Apache::lonnet::coursedescription($content{'courseid'}); |
# Functions |
# Functions |
$r->print('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'. |
$r->print('<table border="2" width="100%"><tr bgcolor="#FFFFAA"><td>'.&mt('Functions').':</td>'. |
'<td><a href="/adm/email?replyto='.&Apache::lonnet::escape($msgid).$sqs. |
'<td><a href="/adm/email?replyto='.&escape($msgid).$sqs. |
'"><b>'.&mt('Reply').'</b></a></td>'. |
'"><b>'.&mt('Reply').'</b></a></td>'. |
'<td><a href="/adm/email?forward='.&Apache::lonnet::escape($msgid).$sqs. |
'<td><a href="/adm/email?forward='.&escape($msgid).$sqs. |
'"><b>'.&mt('Forward').'</b></a></td>'. |
'"><b>'.&mt('Forward').'</b></a></td>'. |
'<td><a href="/adm/email?markunread='.&Apache::lonnet::escape($msgid).$sqs. |
'<td><a href="/adm/email?markunread='.&escape($msgid).$sqs. |
'"><b>'.&mt('Mark Unread').'</b></a></td>'. |
'"><b>'.&mt('Mark Unread').'</b></a></td>'. |
'<td><a href="/adm/email?markdel='.&Apache::lonnet::escape($msgid).$sqs. |
'<td><a href="/adm/email?markdel='.&escape($msgid).$sqs. |
'"><b>'.&mt('Delete').'</b></a></td>'. |
'"><b>'.&mt('Delete').'</b></a></td>'. |
'<td><a href="/adm/email?'.$sqs. |
'<td><a href="/adm/email?'.$sqs. |
($env{'form.dismode'} eq 'new'?'&folder=new':''). |
($env{'form.dismode'} eq 'new'?'&folder=new':''). |
Line 1610 sub header {
|
Line 1560 sub header {
|
$r->print(&Apache::loncommon::start_page('Communication and Messages', |
$r->print(&Apache::loncommon::start_page('Communication and Messages', |
$extra)); |
$extra)); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,($title?$title:'Communication and Messages'))); |
(($title?$title:'Communication and Messages'))); |
|
|
} |
} |
|
|
Line 1635 sub storecomment {
|
Line 1585 sub storecomment {
|
$cleanmsgtxt.=$_."\n"; |
$cleanmsgtxt.=$_."\n"; |
} |
} |
} |
} |
my $key=&Apache::lonnet::escape($env{'form.baseurl'}).'___'.time; |
my $key=&escape($env{'form.baseurl'}).'___'.time; |
&Apache::lonnet::put('nohist_stored_comments',{ $key => $cleanmsgtxt }); |
&Apache::lonnet::put('nohist_stored_comments',{ $key => $cleanmsgtxt }); |
} |
} |
|
|
sub storedcommentlisting { |
sub storedcommentlisting { |
my ($r)=@_; |
my ($r)=@_; |
my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef, |
my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef, |
'^'.&Apache::lonnet::escape(&Apache::lonnet::escape($env{'form.showcommentbaseurl'}))); |
'^'.&escape(&escape($env{'form.showcommentbaseurl'}))); |
$r->print(&Apache::loncommon::start_page('Stored Comment Listing',undef, |
$r->print(&Apache::loncommon::start_page('Stored Comment Listing',undef, |
{'onlybody' => 1})); |
{'onlybody' => 1})); |
if ((keys %msgs)[0]=~/^error\:/) { |
if ((keys %msgs)[0]=~/^error\:/) { |
Line 1687 sub sendoffmail {
|
Line 1637 sub sendoffmail {
|
&statuschange($msgid,'replied',$folder); |
&statuschange($msgid,'replied',$folder); |
} |
} |
|
|
|
my $to = $env{'form.selectedusers.forminput'}; |
|
my $mode = $env{'form.sendmode'}; |
|
|
my %toaddr; |
my %toaddr; |
if ($env{'form.sendmode'} eq 'group') { |
if ($to) { |
foreach my $address (keys(%env)) { |
foreach my $dest (@$to) { |
if ($address=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) { |
my ($user,$domain) = split(/:/, $dest); |
$toaddr{$1}=''; |
if (($user ne '') && ($domain ne '')) { |
|
my $address = $user.":".$domain; # How the code below expects it. |
|
$toaddr{$address} = ''; |
} |
} |
} |
} |
|
} |
|
|
|
if ($env{'form.sendmode'} eq 'group') { |
|
foreach my $address (keys(%env)) { |
|
if ($address=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) { |
|
$toaddr{$1}=''; |
|
} |
|
} |
} elsif ($env{'form.sendmode'} eq 'upload') { |
} elsif ($env{'form.sendmode'} eq 'upload') { |
foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) { |
foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) { |
my ($rec,$txt)=split(/\s*\:\s*/,$line); |
my ($rec,$txt)=split(/\s*\:\s*/,$line); |
Line 1703 sub sendoffmail {
|
Line 1666 sub sendoffmail {
|
} |
} |
} |
} |
} else { |
} else { |
$toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}=''; |
if (($env{'form.recuname'} ne '') && ($env{'form.recdomain'} ne '')) { |
|
$toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}=''; |
|
} |
} |
} |
if ($env{'form.additionalrec'}) { |
if ($env{'form.additionalrec'}) { |
foreach (split(/\,/,$env{'form.additionalrec'})) { |
foreach (split(/\,/,$env{'form.additionalrec'})) { |
my ($auname,$audom)=split(/\@/,$_); |
my ($auname,$audom)=split(/\@/,$_); |
$toaddr{$auname.':'.$audom}=''; |
if (($auname ne "") && ($audom ne "")) { |
|
$toaddr{$auname.':'.$audom}=''; |
|
} |
} |
} |
} |
} |
|
|
Line 1777 sub sendoffmail {
|
Line 1744 sub sendoffmail {
|
my ($specialmsgid,$specialresult); |
my ($specialmsgid,$specialresult); |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $course_str = &Apache::lonnet::escape('['.$cnum.':'.$cdom.']'); |
my $course_str = &escape('['.$cnum.':'.$cdom.']'); |
|
|
if ($numspecial) { |
if ($numspecial) { |
$specialresult = &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix. |
$specialresult = &Apache::lonmsg::user_normal_msg_raw($cnum,$cdom,$subj_prefix. |
' '.$course_str,$savemsg,undef,undef,undef, |
' '.$course_str,$savemsg,undef,undef,undef, |
undef,undef,\$specialmsgid); |
undef,undef,\$specialmsgid); |
$specialmsgid = &Apache::lonnet::unescape($specialmsgid); |
$specialmsgid = &unescape($specialmsgid); |
} |
} |
if ($specialresult eq 'ok') { |
if ($specialresult eq 'ok') { |
my $record_sent; |
my $record_sent; |
my @recusers; |
my @recusers; |
my @recudoms; |
my @recudoms; |
my ($stamp,$crssubj,$msgname,$msgdom,$msgcount,$context,$pid) = |
my ($stamp,$crssubj,$msgname,$msgdom,$msgcount,$context,$pid) = |
split(/\:/,&Apache::lonnet::unescape($specialmsgid)); |
split(/\:/,&unescape($specialmsgid)); |
|
|
foreach my $recipient (sort(keys(%toaddr))) { |
foreach my $recipient (sort(keys(%toaddr))) { |
if ($specialmsg_status{$recipient} eq 'ok') { |
if ($specialmsg_status{$recipient} eq 'ok') { |
Line 1837 sub sendoffmail {
|
Line 1804 sub sendoffmail {
|
} |
} |
} else { |
} else { |
$r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '. |
$r->print('<p><span class="LC_error">'.&mt('Could not deliver message').'</span> '. |
&mt('Please use the browser "Back" button and correct the recipient addresses').'</p>'); |
&mt('Please use the browser "Back" button and correct the recipient addresses '."($sendstatus)").'</p>'); |
} |
} |
} |
} |
|
|
Line 1858 sub handler {
|
Line 1825 sub handler {
|
['display','replyto','forward','markread','markdel','markunread', |
['display','replyto','forward','markread','markdel','markunread', |
'sendreply','compose','sendmail','critical','recname','recdom', |
'sendreply','compose','sendmail','critical','recname','recdom', |
'recordftf','sortedby','block','folder','startdis','interdis', |
'recordftf','sortedby','block','folder','startdis','interdis', |
'showcommentbaseurl','dismode']); |
'showcommentbaseurl','dismode','group','subject','text']); |
$sqs='&sortedby='.$env{'form.sortedby'}; |
$sqs='&sortedby='.$env{'form.sortedby'}; |
|
|
# ------------------------------------------------------ They checked for email |
# ------------------------------------------------------ They checked for email |
Line 1880 sub handler {
|
Line 1847 sub handler {
|
unless ($folder) { |
unless ($folder) { |
$folder=''; |
$folder=''; |
} else { |
} else { |
$sqs.='&folder='.&Apache::lonnet::escape($folder); |
$sqs.='&folder='.&escape($folder); |
} |
} |
# ------------------------------------------------------------ Get Display Mode |
# ------------------------------------------------------------ Get Display Mode |
|
|
Line 1888 sub handler {
|
Line 1855 sub handler {
|
unless ($dismode) { |
unless ($dismode) { |
$dismode=''; |
$dismode=''; |
} else { |
} else { |
$sqs.='&dismode='.&Apache::lonnet::escape($dismode); |
$sqs.='&dismode='.&escape($dismode); |
} |
} |
|
|
# --------------------------------------------------------------------- Display |
# --------------------------------------------------------------------- Display |
Line 1958 sub handler {
|
Line 1925 sub handler {
|
foreach my $key (keys(%env)) { |
foreach my $key (keys(%env)) { |
if ($key=~/^form\.delmark_(.*)$/) { |
if ($key=~/^form\.delmark_(.*)$/) { |
my ($result,$msg) = |
my ($result,$msg) = |
&movemsg(&Apache::lonnet::unescape($1),$folder, |
&movemsg(&unescape($1),$folder, |
$env{'form.movetofolder'}); |
$env{'form.movetofolder'}); |
if ($result) { |
if ($result) { |
$total++; |
$total++; |
Line 1985 sub handler {
|
Line 1952 sub handler {
|
foreach my $key (keys(%env)) { |
foreach my $key (keys(%env)) { |
if ($key=~/^form\.delmark_(.*)$/) { |
if ($key=~/^form\.delmark_(.*)$/) { |
my ($result,$msg) = |
my ($result,$msg) = |
&statuschange(&Apache::lonnet::unescape($1),'deleted', |
&statuschange(&unescape($1),'deleted', |
$folder); |
$folder); |
if ($result) { |
if ($result) { |
$total++; |
$total++; |