From 765117c4fb916a31b43c0de7d6fa08de42588a88 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 13 Apr 2005 17:00:03 +0000 Subject: (autologin) make autologin choice more user friendly (#4304) --- perl-install/any.pm | 6 ++++-- 1 file 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}; -- cgit v1.2.1