$chmod = $edit_perms_default;
} elseif (!isset($perms[$l_File->get_md5_ID()])) {
// happens for an empty text input or when no radio option is selected
$Messages->add(sprintf(T_('Permissions for «%s» have not been changed.'), $l_File->dget('name')), 'note');
continue;
} else {
// provided for this file
$chmod = $perms[$l_File->get_md5_ID()];
}
$oldperms = $l_File->get_perms('raw');
$newperms = $l_File->chmod(octdec($chmod));
if ($newperms === false) {
$Messages->add(sprintf(T_('Failed to set permissions on «%s» to «%s».'), $l_File->dget('name'), $chmod), 'error');
} else {
// Success, remove the file from the list of selected files:
$selected_Filelist->remove($l_File);
if ($newperms === $oldperms) {
$Messages->add(sprintf(T_('Permissions for «%s» have not been changed.'), $l_File->dget('name')), 'note');
} else {
$Messages->add(sprintf(T_('Permissions for «%s» changed to «%s».'), $l_File->dget('name'), $l_File->get_perms()), 'success');
}
}
}
}
if (!$selected_Filelist->count()) {
// No file left selected... (everything worked fine)
$action = 'list';
}
break;
}
/*
break;
}
if (!$selected_Filelist->count()) {
$Messages->add(T_('Nothing selected.'), 'error');
$action = 'list';
break;
}
param('confirmed', 'integer', 0);
// fplanque>> We cannot actually offer to delete subdirs since we cannot pre-check DB
$selected_Filelist->restart();
if ($confirmed) {
// Unlink files:
while ($l_File =& $selected_Filelist->get_next()) {
if ($l_File->unlink()) {
$Messages->add(sprintf($l_File->is_dir() ? T_('The directory «%s» has been deleted.') : T_('The file «%s» has been deleted.'), $l_File->dget('name')), 'success');
$fm_Filelist->remove($l_File);
} else {
$Messages->add(sprintf($l_File->is_dir() ? T_('Could not delete the directory «%s» (not empty?).') : T_('Could not delete the file «%s».'), $l_File->dget('name')), 'error');
}
}
$action = 'list';
} else {
// make sure we have loaded metas for all files in selection!
$selected_Filelist->load_meta();
// Check if there are delete restrictions on the files:
while ($l_File =& $selected_Filelist->get_next()) {
// Check if there are delete restrictions on this file:
$l_File->check_relations('delete_restrictions');
if ($Messages->count('restrict')) {
// There are restrictions:
$Messages->add($l_File->get_prefixed_name() . ': ' . T_('cannot be deleted because of the following relations') . $Messages->display(NULL, NULL, false, 'restrict', '', 'ul', false));
