version 1.55, 2006/12/23 04:39:32
|
version 1.56, 2006/12/23 06:19:10
|
Line 381 sub deletefolder {
|
Line 381 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',$folder); |
} |
} |
my %userfolders = &Apache::lonmsg::get_user_folders(); |
my %userfolders = &Apache::lonmsg::get_user_folders(); |
if (!defined($userfolders{$folder})) { |
if (!defined($userfolders{$folder})) { |
return &mt('The folder [_1] does not exist so deletion is not required.', |
return &mt('The folder "[_1]" does not exist so deletion is not required.', |
$folder); |
$folder); |
} |
} |
# check folder is empty; |
# check folder is empty; |
my $suffix=&Apache::lonmsg::foldersuffix($folder); |
my $suffix=&Apache::lonmsg::foldersuffix($folder); |
my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix); |
my @messages = &Apache::lonnet::getkeys('nohist_email'.$suffix); |
if (@messages > 0) { |
if (@messages > 0) { |
return &mt('The folder [_1] contains messages so it may not be deleted.'). |
return &mt('The folder "[_1]" contains messages so it may not be deleted.',$folder). |
'<br />'. |
'<br />'. |
&mt('Delete or move the messages to a different folder first.'); |
&mt('Delete or move the messages to a different folder first.'); |
} |
} |