summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-04-13 17:00:03 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-04-13 17:00:03 +0000
commit765117c4fb916a31b43c0de7d6fa08de42588a88 (patch)
treed620754c33928606a14e011d4943139c5af1b654 /perl-install
parentd3d3730f906d315710712d131a1997d244ef856a (diff)
downloaddrakx-765117c4fb916a31b43c0de7d6fa08de42588a88.tar
drakx-765117c4fb916a31b43c0de7d6fa08de42588a88.tar.gz
drakx-765117c4fb916a31b43c0de7d6fa08de42588a88.tar.bz2
drakx-765117c4fb916a31b43c0de7d6fa08de42588a88.tar.xz
drakx-765117c4fb916a31b43c0de7d6fa08de42588a88.zip
(autologin) make autologin choice more user friendly (#4304)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index a4cf3d577..f2fb51027 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -682,15 +682,17 @@ sub autologin {
$o->{desktop} = 'KDE';
$o->{autologin} = $users[0];
} elsif (@wm > 1 && @users && !$o->{authentication}{NIS} && $o->{security} <= 2) {
- my $use_autologin = @users == 1;
+ my $use_autologin = bool2yesno(@users == 1);
$in->ask_from_(
{ title => N("Autologin"),
messages => N("I can set up your computer to automatically log on one user.") },
- [ { label => N("Do you want to use this feature?"), val => \$use_autologin, type => 'bool' },
+ [ { label => N("Do you want to use this feature?"), val => \$use_autologin, type => 'list', list => [ N_("Yes"), N("No") ],
+ format => sub { translate($_[0]) }, gtk => { use_boxradio => 1 } },
{ label => N("Choose the default user:"), val => \$o->{autologin}, list => \@users, disabled => sub { !$use_autologin } },
{ label => N("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm, disabled => sub { !$use_autologin } } ]
);
+ $use_autologin = to_bool($use_autologin);
delete $o->{autologin} if !$use_autologin;
} else {
delete $o->{autologin};