From c74b22517acebac89a4fe064b04283b8caf2bbc5 Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 25 Sep 2000 14:24:18 +0000 Subject: stc --- perl-install/ChangeLog | 7 +++++++ perl-install/Xconfigurator.pm | 2 +- perl-install/install_steps_interactive.pm | 2 +- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 256214406..b4a7f7d0c 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,3 +1,10 @@ +2000-09-25 dam's + + * netconnect.pm (read_net_conf): created. draknet now stores and + reload the config. + * netconnect.pm (main): if the user is french and uses french + keyboard, don't ask his country. + 2000-09-25 Pixel * modules.pm: added 8139too diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index b63985024..92e8049f4 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -1027,7 +1027,7 @@ sub show_info { #- Program entry point. sub main { my ($o, $allowFB); - ($prefix, $o, $in, $allowFB, $isLaptop, $install) = @_; + ($prefix, $o, $in, $allowFB, $isLaptop, $install, $lang) = @_; $o ||= {}; XF86check_link(''); diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 2c35a4e9e..af26cb58c 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -516,7 +516,7 @@ sub configureNetwork { my ($o, $first_time) = @_; require netconnect; netconnect::main($o->{prefix}, $o->{netcnx} ||= {}, $o->{netc}, $o->{mouse}, $o, $o->{pcmcia}, $o->{intf}, - sub { $o->pkg_install(@_) }, $first_time); + sub { $o->pkg_install(@_) }, $first_time, $o->{lang} eq "fr_FR" && $o->{keyboard} eq "fr"); } #-configureNetworkIntf moved to network -- cgit v1.2.1