From d5739412f20b3a29d79b40fce1984e597c03a18a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 9 Mar 2004 16:48:34 +0000 Subject: fix isdn config step by using runtime references --- perl-install/network/netconnect.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index e5ffcfbb7..a87575599 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -253,7 +253,8 @@ sub real_main { { name => N("Connection Configuration") . "\n\n" . N("Please fill or check the field below"), - data => [ + data => { + [ (map { my ($dstruct, $field, $item) = @$_; $item->{val} = \$dstruct->{$field}; @@ -277,6 +278,7 @@ sub real_main { { label => N("Account Password"), val => \$netcnx->{passwd}, hidden => 1 }, ) ], + }, post => sub { isdn_write_config($isdn, $netc); # or return 'isdn_protocol'; $netc->{$_} = 'ippp0' foreach 'NET_DEVICE', 'NET_INTERFACE'; -- cgit v1.2.1