version 1.171, 2013/12/03 14:54:32
|
version 1.172, 2014/01/16 16:34:01
|
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})) { |