diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-02-25 10:38:35 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-02-25 10:38:35 +0000 |
| commit | 5bad5af7ae55f0ab7d1d58999efd54f023b286d4 (patch) | |
| tree | 0c00f0b87a2cd35c726beb94cf2ddfd2913035fa /perl-install/network | |
| parent | ef0de4f4d002839576e2fecf7d79f522ed7f1df9 (diff) | |
| download | drakx-backup-do-not-use-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.tar drakx-backup-do-not-use-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.tar.gz drakx-backup-do-not-use-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.tar.bz2 drakx-backup-do-not-use-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.tar.xz drakx-backup-do-not-use-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.zip | |
allow to select "unlisted" provider in adsl provider list
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/netconnect.pm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index a7858939b..7893b8df1 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -751,15 +751,18 @@ Take a look at http://www.linmodems.org"), $adsl_old_provider = $adsl_provider; }, name => N("Please choose your ADSL provider"), - data => sub { - [ { label => N("Provider:"), type => "list", val => \$adsl_provider, separator => '|', list => [ keys %adsl_data ] } ]; + data => sub { + [ { label => N("Provider:"), type => "list", val => \$adsl_provider, separator => '|', + list => [ N("Unlisted - edit manually"), keys %adsl_data ] } ]; }, post => sub { - $adsl_data = $adsl_data{$adsl_provider}; $adsl_type = 'pppoa' if member($ntf_name, qw(bewan speedtouch)); - if ($adsl_provider ne $adsl_old_provider) { - $netc->{$_} = $adsl_data->{$_} foreach qw(DOMAINNAME2 Encapsulation vpi vci); - $adsl_type = $adsl_data->{method}; + if ($adsl_provider ne N("Unlisted - edit manually")) { + $adsl_data = $adsl_data{$adsl_provider}; + if ($adsl_provider ne $adsl_old_provider) { + $netc->{$_} = $adsl_data->{$_} foreach qw(DOMAINNAME2 Encapsulation vpi vci); + $adsl_type = $adsl_data->{method}; + } } return 'adsl_protocol'; }, |