From 6bfd3e51da32108f8b15a1c7fb7af8ddf171b8ff Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sun, 20 Jun 2004 23:23:36 +0000 Subject: fix undisplayed fields: - if a per-class group exists, prefer it upon generic group - only care about current group fields, not about those of the group that has the same name in generic --- perl-install/standalone/harddrake2 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/harddrake2') diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index cb7698ee1..8c2aa553b 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -283,12 +283,12 @@ $tree->get_selection->signal_connect('changed' => sub { $current_device->{$_}) . "\n\n", if_($_ eq 'driver' && $current_device->{$_} =~ /^unknown|^Bad:/, { foreground => 'indian red' }) ] ]) } sort keys %$current_device; + my %groups = map { if_(ref $groups{$_}, %{$groups{$_}}) } 'generic', $current_class; my ($grouped, $ungrouped) = partition { my $field = $_; - member($field, map { @$_ } map { values %$_ } @groups{$current_class, 'generic'}); + member($field, map { @$_ } values %groups); } keys %device_fields; my @formated; - my %groups = map { if_(ref $groups{$_}, %{$groups{$_}}) } $current_class, 'generic'; foreach my $group (sort { $a eq N("Connection") } keys %groups) { my @fields = @{$groups{$group}}; # have we at least a member in that group? -- cgit v1.2.1