version 1.142, 2010/01/14 17:20:44
|
version 1.143, 2010/01/21 13:29:41
|
Line 3272 sub sendoffmail {
|
Line 3272 sub sendoffmail {
|
'','','','',$recipid); |
'','','','',$recipid); |
} |
} |
} |
} |
if (!$env{'form.multiforward'}) { |
if (!$env{'form.multiforward'}) { |
if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { |
if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { |
$r->print('<br /><span class="LC_success">'.&mt('Completed.'). |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Completed.')); |
'</span>'); |
$message = &Apache::loncommon::confirmwrapper($message); |
|
$r->print($message); |
if ($env{'form.displayedcrit'}) { |
if ($env{'form.displayedcrit'}) { |
&discrit($r); |
&discrit($r); |
} |
} |
Line 3285 sub sendoffmail {
|
Line 3286 sub sendoffmail {
|
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
} |
} |
} else { |
} else { |
$r->print('<p>'.&Apache::lonhtmlcommon::confirm_success(&mt('Could not deliver message'),1).'<br /> '. |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Could not deliver message'),1); |
&mt('Please use the browser "Back" button and correct the recipient addresses ([_1]).',$sendstatus).'</p>'); |
$message .= '<br/>'.&mt('Please use the browser "Back" button and correct the recipient addresses ([_1]).',$sendstatus); |
|
$message = &Apache::loncommon::confirmwrapper($message); |
|
$r->print($message); |
} |
} |
} |
} |
} |
} |
Line 3405 sub handler {
|
Line 3408 sub handler {
|
my ($result,$msg) = |
my ($result,$msg) = |
&statuschange($env{'form.markdel'},'deleted',$folder); |
&statuschange($env{'form.markdel'},'deleted',$folder); |
if (!$result) { |
if (!$result) { |
$r->print('<p class="LC_error">'. |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Failed to delete the message.'),1); |
&mt('Failed to delete the message.').'</p>'. |
$message .= '<p class="LC_error">'.$msg.'</p>'; |
'<p class="LC_error">'.$msg."</p>\n"); |
$message = &Apache::loncommon::confirmwrapper($message); |
|
$r->print($message); |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
Line 3429 sub handler {
|
Line 3433 sub handler {
|
$total ++; |
$total ++; |
} |
} |
&printheader($r,'','Marked Messages Read'); |
&printheader($r,'','Marked Messages Read'); |
$r->print(&mt('Marked [quant,_1,message] read',$total).'<p>'); |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Marked [quant,_1,message] read',$total)); |
|
$message = &Apache::loncommon::confirmwrapper($message); |
|
$r->print($message); |
|
# $r->print('<p>'); |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
} elsif ($env{'form.markedaction'} eq 'markedunread') { |
} elsif ($env{'form.markedaction'} eq 'markedunread') { |
Line 3440 sub handler {
|
Line 3447 sub handler {
|
$total ++; |
$total ++; |
} |
} |
&printheader($r,'','Marked Messages Unread'); |
&printheader($r,'','Marked Messages Unread'); |
$r->print(&mt('Marked [quant,_1,message] unread',$total).'<p>'); |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Marked [quant,_1,message] unread',$total)); |
|
$message = &Apache::loncommon::confirmwrapper($message); |
|
$r->print($message); |
|
# $r->print('<p>'); |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
} elsif ($env{'form.markedaction'} eq 'markedmove') { |
} elsif ($env{'form.markedaction'} eq 'markedmove') { |
Line 3463 sub handler {
|
Line 3473 sub handler {
|
push(@failed_msg,$msg); |
push(@failed_msg,$msg); |
} |
} |
} |
} |
if ($failed) { |
my $message = ''; |
$r->print('<p class="LC_error">' |
if ($failed) { |
.&mt('Failed to move [quant,_1,message]',$failed) |
$message .= &Apache::lonhtmlcommon::confirm_success(&mt('Failed to move [quant,_1,message]',$failed),1); |
.'</p>'); |
$message .= '<p class="LC_error">'. |
$r->print('<p class="LC_error">'. |
join("</p>\n<p class=\"LC_error\">",@failed_msg). |
join("</p>\n<p class=\"LC_error\">",@failed_msg). |
"</p>\n"; |
"</p>\n"); |
} |
} |
$message .= &Apache::lonhtmlcommon::confirm_success(&mt('Moved [quant,_1,message]',$total)); |
$r->print('<p class="LC_success">' |
$message = &Apache::loncommon::confirmwrapper($message); |
.&mt('Moved [quant,_1,message]',$total) |
$r->print($message); |
.'</p>' |
# $r->print('<p>'); |
.'<p>'); |
|
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
Line 3492 sub handler {
|
Line 3501 sub handler {
|
} |
} |
} |
} |
&printheader($r,'','Deleted Messages'); |
&printheader($r,'','Deleted Messages'); |
|
my $message = ''; |
if ($failed) { |
if ($failed) { |
$r->print('<p class="LC_error">' |
$message .= &Apache::lonhtmlcommon::confirm_success(&mt('Failed to delete [quant,_1,message]',$failed),1); |
.&mt('Failed to delete [quant,_1,message]',$failed) |
$message .= '<p class="LC_error">'. |
.'</p>'); |
|
$r->print('<p class="LC_error">'. |
|
join("</p>\n<p class=\"LC_error\">",@failed_msg). |
join("</p>\n<p class=\"LC_error\">",@failed_msg). |
"</p>\n"); |
"</p>\n"; |
} |
} |
$r->print('<p class="LC_success">' |
$message .= &Apache::lonhtmlcommon::confirm_success(&mt('Deleted [quant,_1,message]',$total)); |
.&mt('Deleted [quant,_1,message]',$total) |
$message = &Apache::loncommon::confirmwrapper($message); |
.'</p>' |
$r->print($message); |
.'<p>'); |
# $r->print('<p>'); |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
} elsif ($env{'form.markunread'}) { |
} elsif ($env{'form.markunread'}) { |
Line 3559 sub handler {
|
Line 3567 sub handler {
|
} |
} |
if (keys(%forwardok) > 0) { |
if (keys(%forwardok) > 0) { |
my $count = keys(%forwardok); |
my $count = keys(%forwardok); |
$r->print('<br /><span class="LC_success">'. |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('[quant,_1,message] forwarded.',$count)); |
&mt('[quant,_1,message] forwarded.',$count). |
$message = &Apache::loncommon::confirmwrapper($message); |
'</span>'); |
$r->print($message); |
} |
} |
if (keys(%forwardfail) > 0) { |
if (keys(%forwardfail) > 0) { |
my $count = keys(%forwardfail); |
my $count = keys(%forwardfail); |
$r->print('<p><span class="LC_error">'. |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Could not forward [quant,_1,message].',$count),1); |
&mt('Could not forward [quant,_1,message].',$count). |
|
'</span> '); |
|
foreach my $key (keys(%forwardfail)) { |
foreach my $key (keys(%forwardfail)) { |
$r->print(&mt('Could not deliver forwarded message.').'</span> '. |
$message .= '<br/>'.&mt('Could not deliver forwarded message.').'</span> '. |
&mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.').<br /><br />'); |
&mt('The recipient addresses may need to be corrected').' ('.$forwardfail{$key}.')'; |
} |
} |
|
$message = &Apache::loncommon::confirmwrapper($message); |
|
$r->print($message); |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
} else { |
} else { |
Line 3595 sub handler {
|
Line 3603 sub handler {
|
my $showfolder = $env{'form.newfolder'}; |
my $showfolder = $env{'form.newfolder'}; |
my ($makeresult,$warning) = &makefolder($env{'form.newfolder'}); |
my ($makeresult,$warning) = &makefolder($env{'form.newfolder'}); |
if ($makeresult eq 'ok') { |
if ($makeresult eq 'ok') { |
$r->print('<p class="LC_success">' |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Folder "[_1]" created.',$showfolder)); |
.&mt('Folder "[_1]" created.',$showfolder) |
$message = &Apache::loncommon::confirmwrapper($message); |
.'</p>'); |
$r->print($message); |
} else { |
} else { |
$r->print('<p class="LC_warning">' |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Creation failed.').' '.$makeresult.'<br />'.$warning,1); |
.&mt('Creation failed.').' '.$makeresult.'<br />' |
$message = &Apache::loncommon::confirmwrapper($message); |
.$warning |
$r->print($message); |
.'</p>'); |
|
$showfolder = $folder; |
$showfolder = $folder; |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
Line 3614 sub handler {
|
Line 3621 sub handler {
|
my $showfolder = ''; |
my $showfolder = ''; |
my $delresult = &deletefolder($folder); |
my $delresult = &deletefolder($folder); |
if ($delresult eq 'ok') { |
if ($delresult eq 'ok') { |
$r->print('<p class="LC_success">' |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Folder "[_1]" deleted.',$folder)); |
.&mt('Folder "[_1]" deleted.',$folder) |
$message = &Apache::loncommon::confirmwrapper($message); |
.'</p>'); |
$r->print($message); |
$env{'form.folder'} = ''; |
$env{'form.folder'} = ''; |
} else { |
} else { |
$r->print('<p class="LC_warning">' |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Deletion failed.').' '.$delresult,1); |
.&mt('Deletion failed.').' '.$delresult |
$message = &Apache::loncommon::confirmwrapper($message); |
.'</p>'); |
$r->print($message); |
$showfolder = $folder; |
$showfolder = $folder; |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
Line 3631 sub handler {
|
Line 3638 sub handler {
|
my $showfolder = $env{'form.renamed'}; |
my $showfolder = $env{'form.renamed'}; |
my $renresult = &renamefolder($folder); |
my $renresult = &renamefolder($folder); |
if ($renresult eq 'ok') { |
if ($renresult eq 'ok') { |
$r->print('<p class="LC_success">' |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Folder "[_1]" renamed to "[_2]".',$folder,$showfolder)); |
.&mt('Folder "[_1]" renamed to "[_2]".',$folder,$showfolder) |
$message = &Apache::loncommon::confirmwrapper($message); |
.'</p>'); |
$r->print($message); |
} else { |
} else { |
$r->print('<p class="LC_warning">' |
my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Renaming failed.').' '.$renresult,1); |
.&mt('Renaming failed.').' '.$renresult |
$message = &Apache::loncommon::confirmwrapper($message); |
.'</p>'); |
$r->print($message); |
$showfolder = $folder; |
$showfolder = $folder; |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |