loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

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.');
}	}