diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-06-09 08:27:52 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-06-09 08:27:52 +0000 |
commit | 1540649b2536b2ff7477991a0b061743a4f3f120 (patch) | |
tree | 47390e7ce85d051a8c671951874b6f9d70bd146b /perl-install/any.pm | |
parent | e52de579848bfc553fb54c294d697356bd530d07 (diff) | |
download | drakx-1540649b2536b2ff7477991a0b061743a4f3f120.tar drakx-1540649b2536b2ff7477991a0b061743a4f3f120.tar.gz drakx-1540649b2536b2ff7477991a0b061743a4f3f120.tar.bz2 drakx-1540649b2536b2ff7477991a0b061743a4f3f120.tar.xz drakx-1540649b2536b2ff7477991a0b061743a4f3f120.zip |
(autologin) make autologin choice more user friendly (better fix for #4304)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r-- | perl-install/any.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 508a9abd0..0cd403bd9 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -691,17 +691,15 @@ sub autologin { $o->{desktop} = 'KDE'; $o->{autologin} = $users[0]; } elsif (@wm > 1 && @users && !$o->{authentication}{NIS} && $o->{security} <= 2) { - my $use_autologin = bool2yesno(@users == 1); + my $use_autologin = @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 => 'list', list => [ N_("Yes"), N("No") ], - format => sub { translate($_[0]) }, gtk => { use_boxradio => 1 } }, + [ { text => N("Use this feature"), val => \$use_autologin, type => 'bool' }, { 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}; |