summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm20
1 files changed, 8 insertions, 12 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 869eafe6d..a17d0b916 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -56,7 +56,14 @@ sub add_callback {
sub edit_callback {
my (undef, $iter) = $permList->get_selection->get_selected;
- row_setting_data($iter);
+ return unless $iter;
+ %CURENT = ('data' => [
+ $treeModel->_get($iter, 0),
+ $treeModel->_get($iter, 1),
+ $treeModel->_get($iter, 2),
+ $treeModel->_get($iter, 3),
+ ]
+ );
row_setting_dialog($iter);
}
@@ -189,17 +196,6 @@ sub save_perm {
$modified = 0;
}
-sub row_setting_data {
- my ($iter) = @_;
- %CURENT = ('data' => [
- $treeModel->_get($iter, 0),
- $treeModel->_get($iter, 1),
- $treeModel->_get($iter, 2),
- $treeModel->_get($iter, 3),
- ]
- );
-}
-
sub row_setting_dialog {
my ($iter) = @_;