diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ChangeLog | 6 | ||||
| -rw-r--r-- | perl-install/Xconfigurator.pm | 10 |
2 files changed, 11 insertions, 5 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 12190b7cc..d7f138c8b 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,3 +1,9 @@ +2000-07-20 dam's <damien@mandrakesoft.com> + + * Xconfigurator.pm: use {miscellaneous}{autologuser} instead of + {miscellaneous}{autologuser} + {miscellaneous}{autologing}. + * move some README content to ../HACKING + 2000-07-19 dam's <damien@mandrakesoft.com> * Xconfigurator.pm: added autologin boxes. diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index f2cb51bcf..ef4ba3a6a 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -1026,14 +1026,14 @@ Would you like X to start when you reboot?"), 1); $l{uid} > 500, $l{name}; } cat_("$o->{prefix}/etc/passwd"); - if (exists $o->{miscellaneous}{autologin} || $::auto || @users + if (exists $o->{miscellaneous}{autologuser} || $::auto || @users || $in->ask_yesorno(_("Autologin at startup"), _("I can set up your computer to automatically log on one user. Would you like to use this feature?"), 1)) { - $o->{miscellaneous}{autologin} = $in->ask_from_entries_refH(_("Autologin"), - _("Autologin - Choose default user\n"), - [ _("Choose the default user :") => {val => \$o->{miscellaneous}{autologuser}, list => \@users, not_edit => 1} ], - ); + $in->ask_from_entries_refH(_("Autologin"), + _("Autologin - Choose default user\n"), + [ _("Choose the default user :") => {val => \$o->{miscellaneous}{autologuser}, list => \@users, not_edit => 1} ], + ); } } run_program::rooted($prefix, "chkconfig", "--del", "gpm") if $o->{mouse}{device} =~ /ttyS/ && !$::isStandalone; |