1 files changed, 3 insertions, 1 deletions
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';