From de37de57d0f160e379bcdd0119764d8e1bca6c2e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 17 Mar 2005 16:28:21 +0000
Subject: temporary move collate sorting into net wizard in order to minimize
 possible side effects

---
 perl-install/network/netconnect.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/network/netconnect.pm')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 51f4a24f0..9e52bd284 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -238,6 +238,8 @@ sub real_main {
           }
       };
 
+      use locale;
+      set_l10n_sort();
 
       # main wizard:
       my $wiz;
@@ -770,7 +772,7 @@ Take a look at http://www.linmodems.org"),
                     name => N("Please choose your ADSL provider"),
                     data => sub {
                         [ { label => N("Provider:"), type => "list", val => \$adsl_provider, separator => '|',
-                            list => [ N("Unlisted - edit manually"), keys %adsl_data ] } ];
+                            list => [ sort(N("Unlisted - edit manually"), keys %adsl_data) ], sort => 0 } ];
                     },
                     post => sub {
                         $adsl_type = 'pppoa' if member($ntf_name, qw(bewan speedtouch));
-- 
cgit v1.2.1