From c3b1997c49e96ce1e11a1b030ef92e7494db2373 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 19 Jan 2004 16:31:43 +0000 Subject: make a real wizard step out of first modem step --- perl-install/network/netconnect.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install') 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 -- cgit v1.2.1