From fad0b5310f6728db2caaab9b3906af5883293dde Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sun, 20 Jun 2004 23:29:59 +0000
Subject: really ensure that "identification" section is displayed first

---
 perl-install/standalone/harddrake2 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index f21f6e9a1..dad12df21 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -302,7 +302,7 @@ $tree->get_selection->signal_connect('changed' => sub {
                 member($field, map { @$_ } values %groups);
             } keys %device_fields;
             my @formated;
-            foreach my $group (sort { $a eq N("Connection") } keys %groups) {
+            foreach my $group (N("Identification"), grep { $_ ne N("Identification") } keys %groups) {
                 my @fields = @{$groups{$group}};
                 # have we at least a member in that group?
                 next unless any { member($_, @fields) } @$grouped;
-- 
cgit v1.2.1