summaryrefslogtreecommitdiffstats
path: root/lib/network/netconnect.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-05-18 19:32:49 +0000
committerOlivier Blin <oblin@mandriva.com>2008-05-18 19:32:49 +0000
commit0ab6fc56aa6f9ece4d9cd78f20c31341f1516453 (patch)
treeb4509f4484c52d9ed331e3b2fc0ebc68d7c90004 /lib/network/netconnect.pm
parente0b254a0520c186c2933b1cb99ac3422ac7aa96f (diff)
downloaddrakx-net-0ab6fc56aa6f9ece4d9cd78f20c31341f1516453.tar
drakx-net-0ab6fc56aa6f9ece4d9cd78f20c31341f1516453.tar.gz
drakx-net-0ab6fc56aa6f9ece4d9cd78f20c31341f1516453.tar.bz2
drakx-net-0ab6fc56aa6f9ece4d9cd78f20c31341f1516453.tar.xz
drakx-net-0ab6fc56aa6f9ece4d9cd78f20c31341f1516453.zip
store provider name in self
Diffstat (limited to 'lib/network/netconnect.pm')
-rw-r--r--lib/network/netconnect.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/network/netconnect.pm b/lib/network/netconnect.pm
index f35abd0..7ae56d6 100644
--- a/lib/network/netconnect.pm
+++ b/lib/network/netconnect.pm
@@ -51,7 +51,7 @@ sub real_main {
my ($net, $in, $modules_conf) = @_;
#- network configuration should have been already read in $net at this point
my $mouse = $::o->{mouse} || {};
- my (@connections_list, $connection, @providers_data, $provider_name, $protocol_settings, $access_settings, $control_settings);
+ my (@connections_list, $connection, @providers_data, $protocol_settings, $access_settings, $control_settings);
my $connection_compat;
my ($hardware_settings, $network_access_settings, $address_settings, $hostname_settings);
my ($modem, $modem_name, $modem_dyn_dns, $modem_dyn_ip);
@@ -198,16 +198,16 @@ sub real_main {
require lang;
my $locale_country = lang::c2name(ref($::o) && $::o->{locale}{country} || lang::read()->{country});
my $separator = $providers_data[1];
- $provider_name = find { /^\Q$locale_country$separator\E/ } sort(keys %{$providers_data[0]});
+ $self->{provider_name} = find { /^\Q$locale_country$separator\E/ } sort(keys %{$providers_data[0]});
},
name => sub { $net->{type}->get_type_name . "\n\n" . N("Please select your provider:") },
data => sub {
- [ { type => "list", val => \$provider_name, separator => $providers_data[1],
+ [ { type => "list", val => \$self->{provider_name}, separator => $providers_data[1],
list => [ N("Unlisted - edit manually"), sort(keys %{$providers_data[0]}) ], sort => 0 } ];
},
post => sub {
- if ($provider_name ne N("Unlisted - edit manually")) {
- $connection->set_provider($providers_data[0]{$provider_name});
+ if ($self->{provider_name} ne N("Unlisted - edit manually")) {
+ $connection->set_provider($providers_data[0]{$self->{provider_name}});
}
$get_next->("select_provider");
},