summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-08 09:01:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-08 09:01:31 +0000
commitc9697225243e8bf4013ba049f4265b70a9377388 (patch)
tree9655587faac89c718e686f3f398554c748ac8b71 /perl-install/network
parentcd8df4c1243b1573bb7561c3d3daf27387c5a1a4 (diff)
downloaddrakx-backup-do-not-use-c9697225243e8bf4013ba049f4265b70a9377388.tar
drakx-backup-do-not-use-c9697225243e8bf4013ba049f4265b70a9377388.tar.gz
drakx-backup-do-not-use-c9697225243e8bf4013ba049f4265b70a9377388.tar.bz2
drakx-backup-do-not-use-c9697225243e8bf4013ba049f4265b70a9377388.tar.xz
drakx-backup-do-not-use-c9697225243e8bf4013ba049f4265b70a9377388.zip
(isdn_get_cards) introduce it to build a tree bus|card for isdn wizard
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/isdn.pm15
1 files changed, 14 insertions, 1 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 6ff389207..a0ef5dc46 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -14,7 +14,7 @@ use MDK::Common::File;
@ISA = qw(Exporter);
-@EXPORT = qw(get_info_providers_backend isdn_detect_backend isdn_get_info isdn_get_list isdn_read_config isdn_write_config isdn_write_config_backend read_providers_backend);
+@EXPORT = qw(get_info_providers_backend isdn_detect_backend isdn_get_cards isdn_get_info isdn_get_list isdn_read_config isdn_write_config isdn_write_config_backend read_providers_backend);
sub isdn_write_config {
@@ -161,4 +161,17 @@ sub isdn_get_cards_by_type {
}
+sub isdn_get_cards() {
+ my %buses = (
+ isa => N("ISA / PCMCIA") . "/" . N("I don't know"),
+ pci => N("PCI"),
+ usb => N("USB"),
+ );
+ # pmcia alias (we should really split up pcmcia from isa in isdn db):
+ $buses{pcmcia} = $buses{isa};
+
+ map { $buses{$_->{card}} . "|" . $_->{description} => $_ } @isdndata;
+}
+
+
1;