diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-06 11:28:38 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-02-06 11:28:38 +0000 |
| commit | 794307c752aec2b48e744ef4409656116eec214c (patch) | |
| tree | 45cc32db8d609facc16e4f3174fd6ebeaed86311 /perl-install | |
| parent | f8d8b81e0fbfd1a2b55f1e52bd710e93e8cb890b (diff) | |
| download | drakx-794307c752aec2b48e744ef4409656116eec214c.tar drakx-794307c752aec2b48e744ef4409656116eec214c.tar.gz drakx-794307c752aec2b48e744ef4409656116eec214c.tar.bz2 drakx-794307c752aec2b48e744ef4409656116eec214c.tar.xz drakx-794307c752aec2b48e744ef4409656116eec214c.zip | |
fix wireless settings (references being made too early)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index dc1664a8a..7b4839916 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -857,7 +857,8 @@ notation (for example, 1.2.3.4).")), $ethntf->{WIRELESS_ESSID} = "any"; }, name => N("Please enter the wireless parameters for this card:"), - data => [ + data => sub { + [ { label => N("Operating Mode"), val => \$ethntf->{WIRELESS_MODE}, list => [ keys %wireless_mode ] }, { label => N("Network name (ESSID)"), val => \$ethntf->{WIRELESS_ESSID} }, @@ -903,6 +904,7 @@ those interface specific commands and their effect. See iwpriv(8) man page for further information."), } ], + }, complete => sub { if ($ethntf->{WIRELESS_FREQ} && $ethntf->{WIRELESS_FREQ} !~ /[0-9.]*[kGM]/) { $in->ask_warn(N("Error"), N("Freq should have the suffix k, M or G (for example, \"2.46G\" for 2.46 GHz frequency), or add enough '0' (zeroes).")); |