diff options
| -rwxr-xr-x | perl-install/standalone/drakperm | 20 |
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) = @_; |