diff options
| -rw-r--r-- | perl-install/NEWS | 3 | ||||
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 9 |
2 files changed, 11 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 3848a88bd..57ed35a21 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,6 @@ +- harddrake: + o display PCI revision (#42576) + Version 12.54 - 23 September 2009 - drakboot: diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index adc96cbd9..6df4b4aab 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -56,6 +56,7 @@ my %fields = "primary_partitions" => [ N("Primary partitions"), N("the number of the primary partitions") ], "Vendor" => [ N("Vendor"), N("the vendor name of the device") ], "pci_domain" => [ N("PCI domain"), N("the PCI domain of the device") ], + "pci_revision" => [ N("PCI revision"), N("the PCI domain of the device") ], "pci_bus" => [ N("Bus PCI #"), N("the PCI bus on which the device is plugged") ], "pci_device" => [ N("PCI device #"), N("PCI device number") ], "pci_function" => [ N("PCI function #"), N("PCI function number") ], @@ -130,7 +131,7 @@ my %groups = ( generic => { N("Identification") => [ qw(Vendor model description info media_type) ], - N("Connection") => [ qw(bus pci_domain pci_bus pci_device pci_function vendor id subvendor subid) ], + N("Connection") => [ qw(bus pci_domain pci_bus pci_device pci_function pci_revision vendor id subvendor subid) ], }, AUDIO => { @@ -478,6 +479,12 @@ foreach (@classes) { $_->{$field} = sprintf("0x%04x", $_->{$field}); delete $_->{$field} if $_->{$field} eq "0xffff"; # 0xffff equals to '*' } + if ($_->{pci_revision}) { + $_->{pci_revision} = sprintf("0x%02x", $_->{pci_revision}); + } else { + delete $_->{pci_revision};# if $_->{pci_revision} eq "0x0000"; + } + $tree_model->append_set($parent_iter, [ 1 => $custom_id, 2 => $index++ ]); push @data, [ $_, $Ident ]; push @configurators, $configurator; |