From 09957aa88b3060a60e563844c0fd2dabe5aec414 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 18 Feb 2003 16:22:32 +0000 Subject: - (row_setting_data) inline it - fix #1769 --- perl-install/standalone/drakperm | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) (limited to 'perl-install') 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) = @_; -- cgit v1.2.1