From 8e185cf17268b0b35f0345c18e98b7f2768cd7e3 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Sun, 18 May 2008 19:52:13 +0000
Subject: move provider settings guess in connection object

---
 lib/network/connection.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/network/connection.pm')

diff --git a/lib/network/connection.pm b/lib/network/connection.pm
index 8851e92..6efbe1b 100644
--- a/lib/network/connection.pm
+++ b/lib/network/connection.pm
@@ -158,6 +158,15 @@ sub get_access_settings_label { N("Access settings") }
 sub get_address_settings_label { N("Address settings") }
 
 #- check that $self->can('get_providers') first
+sub guess_provider_settings {
+    my ($self) = @_;
+    require lang;
+    my @providers_data = $self->get_providers;
+    my $locale_country = lang::c2name(ref($::o) && $::o->{locale}{country} || lang::read()->{country});
+    my $separator = $providers_data[1];
+    $self->{provider_name} = find { /^\Q$locale_country$separator\E/ } sort(keys %{$providers_data[0]});
+}
+
 sub set_provider {
     my ($self) = @_;
     if ($self->{provider_name} ne N("Unlisted - edit manually")) {
-- 
cgit v1.2.1