From 49a1c79585e472a6f483d365398f621f49c79542 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Sun, 18 May 2008 19:41:42 +0000
Subject: move provider settings interactive data in connection object

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

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

diff --git a/lib/network/connection.pm b/lib/network/connection.pm
index 0e67acb..45e2199 100644
--- a/lib/network/connection.pm
+++ b/lib/network/connection.pm
@@ -165,6 +165,19 @@ sub set_provider {
     }
 }
 
+#- check that $self->can('get_providers') first
+sub get_provider_settings {
+    my ($self) = @_;
+    my @providers_data = $self->get_providers;
+    [
+        {
+            type => "list", val => \$self->{provider_name}, separator => $providers_data[1],
+            list => [ N("Unlisted - edit manually"), sort(keys %{$providers_data[0]}) ], sort => 0,
+            changed => sub { $self->set_provider },
+        },
+    ];
+}
+
 #- check that $self->can('get_protocols') first
 sub get_protocol_settings {
     my ($self) = @_;
-- 
cgit v1.2.1