From 9e0aa67687e9dbb772796531dd476c2a816d9d2c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 25 Nov 2005 19:37:39 +0000
Subject: (real_main) usuability: preselect first ISP of user's country

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

(limited to 'perl-install')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 214d91abe..271e08d2e 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -697,6 +697,11 @@ Take a look at http://www.linmodems.org"),
                         require network::adsl_consts;
                         %adsl_data = %network::adsl_consts::adsl_data;
                         $adsl_old_provider = $adsl_provider;
+                        if (!$adsl_provider) {
+                            require lang;
+                            my $locale_country = lang::c2name($::o->{locale}{country} || lang::read()->{country});
+                            $adsl_provider = find { $_ =~ /^$locale_country/ } sort(keys %adsl_data);
+                        }
                     },
                     name => N("Please choose your ADSL provider"),
                     data => sub {
-- 
cgit v1.2.1