From b3461ea470c446fc6dffea10733f8d5b98c70511 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 20 Jul 2000 12:30:41 +0000 Subject: see changelog. 20 jul 2000 --- perl-install/ChangeLog | 6 ++++++ perl-install/Xconfigurator.pm | 10 +++++----- 2 files changed, 11 insertions(+), 5 deletions(-) (limited to 'perl-install') 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 + + * Xconfigurator.pm: use {miscellaneous}{autologuser} instead of + {miscellaneous}{autologuser} + {miscellaneous}{autologing}. + * move some README content to ../HACKING + 2000-07-19 dam's * 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; -- cgit v1.2.1