version 1.134, 2009/09/08 22:08:20
|
version 1.135, 2009/09/25 16:35:29
|
Line 1268 sub compout {
|
Line 1268 sub compout {
|
&printheader($r,'/adm/email?compose=multiforward', |
&printheader($r,'/adm/email?compose=multiforward', |
'Forwarding Multiple Messages'); |
'Forwarding Multiple Messages'); |
if ($multiforward > 1) { |
if ($multiforward > 1) { |
$r->print(&mt('Each of the <b>[quant,_1,message]</b> you checked' |
$r->print(&mt('Each of the [quant,_1,message] you checked' |
.' will be forwarded to the recipient(s) you select below.',$multiforward) |
.' will be forwarded to the recipient(s) you select below.' |
|
,'<b>'.$multiforward.'</b>') |
.'<br />'); |
.'<br />'); |
} else { |
} else { |
$r->print(&mt('The message you checked will be forwarded to the recipient(s) you select below.').'<br />'); |
$r->print(&mt('The message you checked will be forwarded to the recipient(s) you select below.').'<br />'); |
Line 3352 sub handler {
|
Line 3353 sub handler {
|
$total ++; |
$total ++; |
} |
} |
&printheader($r,'','Marked Messages Read'); |
&printheader($r,'','Marked Messages Read'); |
$r->print(&mt('Marked [_1] message(s) read',$total).'<p>'); |
$r->print(&mt('Marked [quant,_1,message] read',$total).'<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 3363 sub handler {
|
Line 3364 sub handler {
|
$total ++; |
$total ++; |
} |
} |
&printheader($r,'','Marked Messages Unread'); |
&printheader($r,'','Marked Messages Unread'); |
$r->print(&mt('Marked [_1] message(s) unread',$total).'<p>'); |
$r->print(&mt('Marked [quant,_1,message] unread',$total).'<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 3387 sub handler {
|
Line 3388 sub handler {
|
} |
} |
} |
} |
if ($failed) { |
if ($failed) { |
$r->print('<p class="LC_error"> |
$r->print('<p class="LC_error">' |
'.&mt('Failed to move [_1] message(s)',$failed). |
.&mt('Failed to move [quant,_1,message]',$failed) |
'</p>'); |
.'</p>'); |
$r->print('<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"); |
} |
} |
$r->print(&mt('Moved [_1] message(s)',$total).'<p>'); |
$r->print('<p class="LC_success">' |
|
.&mt('Moved [quant,_1,message]',$total) |
|
.'</p>' |
|
.'<p>'); |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
&disall($r,($folder?$folder:$dismode),$msgstatus); |
Line 3413 sub handler {
|
Line 3417 sub handler {
|
} |
} |
&printheader($r,'','Deleted Messages'); |
&printheader($r,'','Deleted Messages'); |
if ($failed) { |
if ($failed) { |
$r->print('<p class="LC_error"> |
$r->print('<p class="LC_error">' |
'.&mt('Failed to delete [_1] message(s)',$failed). |
.&mt('Failed to delete [quant,_1,message]',$failed) |
'</p>'); |
.'</p>'); |
$r->print('<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"); |
} |
} |
$r->print(&mt('Deleted [_1] message(s)',$total).'<p>'); |
$r->print('<p class="LC_success">' |
|
.&mt('Deleted [quant,_1,message]',$total) |
|
.'</p>' |
|
.'<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 3512 sub handler {
|
Line 3519 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(&mt('Folder "[_1]" created.',$showfolder).'<br />'); |
$r->print('<p class="LC_success">' |
|
.&mt('Folder "[_1]" created.',$showfolder) |
|
.'</p>'); |
} else { |
} else { |
$r->print(&mt('Creation failed.').' '.$makeresult.'<br />'. |
$r->print('<p class="LC_warning">' |
$warning); |
.&mt('Creation failed.').' '.$makeresult.'<br />' |
|
.$warning |
|
.'</p>'); |
$showfolder = $folder; |
$showfolder = $folder; |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
Line 3527 sub handler {
|
Line 3538 sub handler {
|
my $showfolder = ''; |
my $showfolder = ''; |
my $delresult = &deletefolder($folder); |
my $delresult = &deletefolder($folder); |
if ($delresult eq 'ok') { |
if ($delresult eq 'ok') { |
$r->print(&mt('Folder "[_1]" deleted.',$folder).'<br />'); |
$r->print('<p class="LC_success">' |
|
.&mt('Folder "[_1]" deleted.',$folder) |
|
.'</p>'); |
$env{'form.folder'} = ''; |
$env{'form.folder'} = ''; |
} else { |
} else { |
$r->print(&mt('Deletion failed.').' '.$delresult.'<br />'); |
$r->print('<p class="LC_warning">' |
|
.&mt('Deletion failed.').' '.$delresult |
|
.'</p>'); |
$showfolder = $folder; |
$showfolder = $folder; |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |
Line 3540 sub handler {
|
Line 3555 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(&mt('Folder "[_1]" renamed to "[_2]".',$folder,$showfolder).'<br />'); |
$r->print('<p class="LC_success">' |
|
.&mt('Folder "[_1]" renamed to "[_2]".',$folder,$showfolder) |
|
.'</p>'); |
} else { |
} else { |
$r->print(&mt('Renaming failed.').' '.$renresult.'<br />'); |
$r->print('<p class="LC_warning">' |
|
.&mt('Renaming failed.').' '.$renresult |
|
.'</p>'); |
$showfolder = $folder; |
$showfolder = $folder; |
} |
} |
&Apache::loncommunicate::menu($r); |
&Apache::loncommunicate::menu($r); |