diff options
| author | damien <damien@mandriva.com> | 2001-09-11 17:39:13 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-09-11 17:39:13 +0000 |
| commit | 7427e6d01fbc73c49b0ec5c0b576e718de761ac2 (patch) | |
| tree | b3e619ccc2db80b91e53f27c6110a3fa03dd6362 /perl-install/network/netconnect.pm | |
| parent | 6010c5693eff384e6b559b7e1577097b8ae1d510 (diff) | |
| download | drakx-7427e6d01fbc73c49b0ec5c0b576e718de761ac2.tar drakx-7427e6d01fbc73c49b0ec5c0b576e718de761ac2.tar.gz drakx-7427e6d01fbc73c49b0ec5c0b576e718de761ac2.tar.bz2 drakx-7427e6d01fbc73c49b0ec5c0b576e718de761ac2.tar.xz drakx-7427e6d01fbc73c49b0ec5c0b576e718de761ac2.zip | |
don't detect ethx if no autodetection.
implement smarter checkboxes
Diffstat (limited to 'perl-install/network/netconnect.pm')
| -rw-r--r-- | perl-install/network/netconnect.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 7eb4f340c..caf4eea55 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -188,7 +188,15 @@ ifdown eth0 [_("LAN connection") . if_($netc->{autodetect}{lan}, " - " . _("ethernet card(s) detected")), \$conf{lan}] ); my $e = $in->ask_from(_("Network Configuration Wizard"), _("Choose the connection you want to configure"), - [ map { { label => $_->[0], val => $_->[1], type => 'bool'} } @l ] + [ map { { label => $_->[0], val => $_->[1], type => 'bool' } } @l ], + changed => sub { + return if !$netc->{autodetection}; + my $c = 0; + $conf{adsl} and $c++; + $conf{cable} and $c++; + my $a = keys(%{$netc->{autodetect}{lan}}); + 0 < $a && $a <= $c and $conf{lan} = undef; + } ) or goto step_1; # load_conf ($netcnx, $netc, $intf); |