summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-25 10:38:35 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-25 10:38:35 +0000
commit5bad5af7ae55f0ab7d1d58999efd54f023b286d4 (patch)
tree0c00f0b87a2cd35c726beb94cf2ddfd2913035fa /perl-install/network/netconnect.pm
parentef0de4f4d002839576e2fecf7d79f522ed7f1df9 (diff)
downloaddrakx-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.tar
drakx-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.tar.gz
drakx-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.tar.bz2
drakx-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.tar.xz
drakx-5bad5af7ae55f0ab7d1d58999efd54f023b286d4.zip
allow to select "unlisted" provider in adsl provider list
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm15
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';
},