diff options
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/netconnect.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index a73d3a629..b9d51d6cc 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -440,6 +440,7 @@ Take a look at http://www.linmodems.org") modem => { pre => sub { + detect($netc->{autodetect}, 'modem') if !$::isInstall; $netcnx->{type} = 'modem'; my $modem = $netcnx->{$netcnx->{type}}; $modem->{device} = $netc->{autodetect}{modem}; @@ -458,9 +459,12 @@ Take a look at http://www.linmodems.org") foreach (@$secret) { $modem->{passwd} = $_->{passwd} if $_->{login} eq $modem->{login}; } - - return $ppp_first_step->(); }, + name => N("Select the modem to configure:"), + data => sub { + [ { label => N("Modem"), type => "list", val => \$ntf_name, list => [ grep { $_ } $netc->{autodetect}{modem}, values %{$netc->{autodetect}{winmodem}} ], allow_empty_list => 1 } ], + }, + post => $ppp_first_step, }, # FIXME: only if $need_to_ask |