diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-24 19:20:51 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-07-24 19:20:51 +0000 |
| commit | 379092519a9a23e8589ab338eae169e132447ce8 (patch) | |
| tree | 237c3535c1becfca72c72b9b77730f916568f2ab | |
| parent | 3a73fb0327489e37681758bad27c9fc4b8d137d0 (diff) | |
| download | drakx-backup-do-not-use-379092519a9a23e8589ab338eae169e132447ce8.tar drakx-backup-do-not-use-379092519a9a23e8589ab338eae169e132447ce8.tar.gz drakx-backup-do-not-use-379092519a9a23e8589ab338eae169e132447ce8.tar.bz2 drakx-backup-do-not-use-379092519a9a23e8589ab338eae169e132447ce8.tar.xz drakx-backup-do-not-use-379092519a9a23e8589ab338eae169e132447ce8.zip | |
fix tree filling
| -rwxr-xr-x | perl-install/standalone/drakperm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 350315477..1efc2ad79 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -186,9 +186,9 @@ sub display_perm { local $_; while (<F>) { if (m/^([^#]\S+)\s+([^.\s]+)\.(\S+)?\s+(\d+)/) { - $treeModel->append_set(undef, [ 0 => $1, 1 => $2, 2 => $3, 3 => $4 ]); + $treeModel->append_set(undef, 0 => $1, 1 => $2, 2 => $3, 3 => $4); } elsif (m/^([^#]\S+)\s+current?\s+(\d+)/) { - $treeModel->append_set(undef, [ 0 => $1, 1 => 'current', 2 => '', 3 => $2 ]); + $treeModel->append_set(undef, 0 => $1, 1 => 'current', 2 => '', 3 => $2); } } close F; @@ -303,19 +303,19 @@ sub row_setting_dialog { $iter = Gtk2::TreeIter->new; $treeModel->append($iter, undef); } - $treeModel->set($iter, [ 0 => $file->get_text ]); + $treeModel->set($iter, 0 => $file->get_text); if ($usr_check->get_active) { - $treeModel->set($iter, [ 1 => 'current' ]); - $treeModel->set($iter, [ 2 => '' ]); + $treeModel->set($iter, 1 => 'current'); + $treeModel->set($iter, 2 => ''); } else { - $treeModel->set($iter, [ 1 => $users->entry->get_text ]); - $treeModel->set($iter, [ 2 => $groups->entry->get_text ]); + $treeModel->set($iter, 1 => $users->entry->get_text); + $treeModel->set($iter, 2 => $groups->entry->get_text); } $user = ($perms{user}{read}->get_active ? 4 : 0)+($perms{user}{write}->get_active ? 2 : 0)+($perms{user}{execute}->get_active ? 1 : 0); $group = ($perms{group}{read}->get_active ? 4 : 0)+($perms{group}{write}->get_active ? 2 : 0)+($perms{group}{execute}->get_active ? 1 : 0); $other = ($perms{other}{read}->get_active ? 4 : 0)+($perms{other}{write}->get_active ? 2 : 0)+($perms{other}{execute}->get_active ? 1 : 0); my $s = ($sticky->get_active ? 1 : 0) + ($suid->get_active ? 4 : 0) + ($gid->get_active ? 2 : 0); - $treeModel->set($iter, [ 3 => ($s || '') . $user . $group . $other ]); + $treeModel->set($iter, 3 => ($s || '') . $user . $group . $other); $dlg->destroy; $modified++; }); |