summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-18 16:22:32 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-18 16:22:32 +0000
commit09957aa88b3060a60e563844c0fd2dabe5aec414 (patch)
tree131f9b68fd85ede3f93531c822f8fad7758657ed /perl-install
parent1bdf880763ab72e92c4f5cdf8277f2e992be3f74 (diff)
downloaddrakx-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-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) = @_;