|
version 1.171, 2013/12/03 14:54:32
|
version 1.173, 2014/01/16 18:38:25
|
|
Line 263 sub get_permanent_folders {
|
Line 263 sub get_permanent_folders {
|
| my %permfolders = |
my %permfolders = |
| &Apache::lonlocal::texthash('' => 'INBOX', |
&Apache::lonlocal::texthash('' => 'INBOX', |
| 'trash' => 'TRASH', |
'trash' => 'TRASH', |
| 'critical' => 'Critical', |
'critical' => 'CRITICAL', |
| 'sent' => 'Sent Messages', |
'sent' => 'SENT MESSAGES', |
| ); |
); |
| return %permfolders; |
return %permfolders; |
| } |
} |
|
Line 380 sub deletefolder {
|
Line 380 sub deletefolder {
|
| my ($folder)=@_; |
my ($folder)=@_; |
| my %permfolders = &get_permanent_folders(); |
my %permfolders = &get_permanent_folders(); |
| if (defined($permfolders{$folder})) { |
if (defined($permfolders{$folder})) { |
| return &mt('The folder "[_1]" may not be deleted.',$folder); |
return &mt('The folder "[_1]" may not be deleted.',$permfolders{$folder}); |
| } |
} |
| my %userfolders = &Apache::lonmsg::get_user_folders(); |
my %userfolders = &Apache::lonmsg::get_user_folders(); |
| if (!defined($userfolders{$folder})) { |
if (!defined($userfolders{$folder})) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsgdisplay.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface