summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 51f1a8ab5..139b21052 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -204,11 +204,13 @@ sub manage {
my %name = network::ethernet::get_eth_cards_names($modules_conf, @all_cards);
foreach (keys %name) {
$p->{/eth|ath|wlan/ ? $name{$_} : $_} = { kind => $_ };
+ $p->{name}{intf} = $_;
}
while (my ($device, $interface) = each %$intf) {
my $type;
exists $name{$device} and next;
$type = network::tools::get_interface_type($interface) and $p->{$type} = { kind => $device };
+ $p->{name}{intf} = $intf->{$device};
}
$window->{rwindow}->add(gtkpack_(Gtk2::VBox->new,
@@ -244,7 +246,7 @@ sub manage {
each_index {
my ($name, $interface, $protocol) = ($_, $p->{$_}{kind}, $p->{$_}{protocol});
$p->{$name}{gui}{index} = $::i;
- build_tree($netc, $p->{$name}{intf} = $intf->{$name =~ /eth|ath|wlan/ || !$name{$name} ? $interface : $name} || {}, $name, $interface, $protocol);
+ build_tree($netc, $p->{$name}{intf}, $name, $interface, $protocol);
build_notebook($netc, $p->{$name}{intf}, $p->{$name}{gui}, $apply_button, $name, $interface);
$notebook->append_page(gtkpack(Gtk2::VBox->new(0,0), $p->{$name}{gui}{notebook}));
} (sort keys %$p);