diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-18 16:22:32 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-18 16:22:32 +0000 |
| commit | 09957aa88b3060a60e563844c0fd2dabe5aec414 (patch) | |
| tree | 131f9b68fd85ede3f93531c822f8fad7758657ed /perl-install | |
| parent | 1bdf880763ab72e92c4f5cdf8277f2e992be3f74 (diff) | |
| download | drakx-09957aa88b3060a60e563844c0fd2dabe5aec414.tar drakx-09957aa88b3060a60e563844c0fd2dabe5aec414.tar.gz drakx-09957aa88b3060a60e563844c0fd2dabe5aec414.tar.bz2 drakx-09957aa88b3060a60e563844c0fd2dabe5aec414.tar.xz drakx-09957aa88b3060a60e563844c0fd2dabe5aec414.zip | |
- (row_setting_data) inline it
- fix #1769
Diffstat (limited to 'perl-install')
| -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) = @_; |