summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-02-11 13:36:33 +0000
committerThierry Vignaud <tv@mandriva.org>2008-02-11 13:36:33 +0000
commit17072de4c773a276767ddd0f0193b274718eadde (patch)
tree176ef458de15966672e4178831a98383b861777f /perl-install
parent092db0b5324faadaac0dd125547f41c46113043d (diff)
downloaddrakx-17072de4c773a276767ddd0f0193b274718eadde.tar
drakx-17072de4c773a276767ddd0f0193b274718eadde.tar.gz
drakx-17072de4c773a276767ddd0f0193b274718eadde.tar.bz2
drakx-17072de4c773a276767ddd0f0193b274718eadde.tar.xz
drakx-17072de4c773a276767ddd0f0193b274718eadde.zip
(row_setting_dialog) further simplify
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakperm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 3d4eb1ff1..e9e9416c5 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -237,7 +237,7 @@ sub row_setting_dialog {
my $dlg = gtknew('Dialog', transient_for => $w->{real_window}, title => $title);
# $dlg->set_resizable(0);
my $browse = gtknew('Button', text => N("browse"));
- my $file = gtknew('Entry');
+ my $file = gtknew('Entry', $o_iter ? (text => $model->get($o_iter, 1)) : ());
my ($other, $group, $user, $s) = $o_iter ? reverse(split(//, $model->get($o_iter, 4))) : ();
my @bits = qw(sticky gid suid);
my @rights = qw(read write execute);
@@ -275,7 +275,6 @@ sub row_setting_dialog {
my %s_right = get_right($s);
my $alrd_exsts = defined $o_iter;
- $file->set_text($model->get($o_iter, 1)) if $o_iter;
my $users = gtknew('ComboBox', list => [ my @users = get_user_or_group('users') ]);
$users->entry->set_text($model->get($o_iter, 2)) if $o_iter;