diff options
author | Damien Chaumette <dchaumette@mandriva.com> | 2004-01-27 16:16:17 +0000 |
---|---|---|
committer | Damien Chaumette <dchaumette@mandriva.com> | 2004-01-27 16:16:17 +0000 |
commit | 37f4624ef9355fac4bc02af709f6265dc0f3fa23 (patch) | |
tree | 0f3cd9ad519dcc7e9412cc78c267c1b8e9032704 /perl-install | |
parent | 22ccf120637c46f9c77d45813b540f3608b6db32 (diff) | |
download | drakx-backup-do-not-use-37f4624ef9355fac4bc02af709f6265dc0f3fa23.tar drakx-backup-do-not-use-37f4624ef9355fac4bc02af709f6265dc0f3fa23.tar.gz drakx-backup-do-not-use-37f4624ef9355fac4bc02af709f6265dc0f3fa23.tar.bz2 drakx-backup-do-not-use-37f4624ef9355fac4bc02af709f6265dc0f3fa23.tar.xz drakx-backup-do-not-use-37f4624ef9355fac4bc02af709f6265dc0f3fa23.zip |
- fix Information page
- use mapIntfToDevice to get infos
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakconnect | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index b921bf078..ac2e929d0 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -458,8 +458,8 @@ sub build_notebook { } if ($intf->{pages}{N("Informations")}) { - my $module = c::getNetDriver($interface_kind) || modules::get_alias($interface_kind); - my $info = find { $module ? $_->{driver} eq $module : $_->{description} eq $gui->{description} } detect_devices::probeall(); + my ($info) = $gui->{description} ? + find { $_->{description} eq $gui->{description} } detect_devices::probeall : network::ethernet::mapIntfToDevice($interface_kind); gtkpack($gui->{sheet}{N("Informations")} = Gtk2::VBox->new(0,0), gtktext_insert(Gtk2::TextView->new, @@ -468,7 +468,7 @@ sub build_notebook { [ N("Vendor"), split('\|', $info->{description}) ], [ N("Description"), reverse split('\|', $info->{description}) ], [ N("Media class"), $info->{media_type} || '-' ], - [ N("Module name"), $module || '-' ], + [ N("Module name"), $info->{driver} || '-' ], [ N("Mac Address"), c::get_hw_address($interface_kind) || '-' ], [ N("Bus"), $info->{bus} || '-' ], [ N("Location on the bus"), $info->{pci_bus} || '-' ], |