version 1.112, 2004/11/09 16:29:32
|
version 1.113, 2004/11/11 18:24:44
|
Line 523 sub folderlist {
|
Line 523 sub folderlist {
|
&mt('Folder').': '. |
&mt('Folder').': '. |
&Apache::loncommon::select_form($folder,'folder', |
&Apache::loncommon::select_form($folder,'folder', |
('' => &mt('INBOX'),'trash' => &mt('TRASH'), |
('' => &mt('INBOX'),'trash' => &mt('TRASH'), |
|
'critical' => &mt('Critical'), |
'sent' => &mt('Sent Messages'), |
'sent' => &mt('Sent Messages'), |
map { $_ => $_ } @allfolders)). |
map { $_ => $_ } @allfolders)). |
' '.&mt('Show').' '. |
' '.&mt('Show').' '. |
Line 568 sub statuschange {
|
Line 569 sub statuschange {
|
|
|
sub makefolder { |
sub makefolder { |
my ($newfolder)=@_; |
my ($newfolder)=@_; |
|
if (($newfolder eq 'sent') |
|
|| ($newfolder eq 'critical') |
|
|| ($newfolder eq 'trash')) { return; } |
&Apache::lonnet::put('email_folders',{$newfolder => time}); |
&Apache::lonnet::put('email_folders',{$newfolder => time}); |
} |
} |
|
|
Line 858 ENDLINK
|
Line 862 ENDLINK
|
|
|
sub disall { |
sub disall { |
my ($r,$folder)=@_; |
my ($r,$folder)=@_; |
|
$r->print(&folderlist($folder)); |
|
unless ($folder) { |
|
&disnew(); |
|
return; |
|
} |
|
if ($folder eq 'critical') { |
|
&discrit(); |
|
} |
my %blocked = (); |
my %blocked = (); |
my %setters = (); |
my %setters = (); |
my $startblock; |
my $startblock; |
Line 893 ENDDISHEADER
|
Line 905 ENDDISHEADER
|
if ($firstdis>$#temp) { $firstdis=$#temp-$interdis+1; } |
if ($firstdis>$#temp) { $firstdis=$#temp-$interdis+1; } |
my $lastdis=$firstdis+$interdis-1; |
my $lastdis=$firstdis+$interdis-1; |
if ($lastdis>$#temp) { $lastdis=$#temp; } |
if ($lastdis>$#temp) { $lastdis=$#temp; } |
$r->print('<h2>'.&mt('Display All Messages').'</h2>'. |
$r->print('<form method="post" name="disall" action="/adm/email">'. |
&folderlist($folder). |
|
'<form method="post" name="disall" action="/adm/email">'. |
|
'<table border=2><tr><th colspan="3"> </th><th>'); |
'<table border=2><tr><th colspan="3"> </th><th>'); |
if ($ENV{'form.sortedby'} eq "revdate") { |
if ($ENV{'form.sortedby'} eq "revdate") { |
$r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>'); |
$r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>'); |