summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-08-30 17:36:43 +0000
committerOlivier Blin <oblin@mandriva.org>2005-08-30 17:36:43 +0000
commit0b4381367ed5446a8a2f391ae1256643ce01c1a9 (patch)
tree1bb28b93edb242ea46b000bec43fa86258dfba32 /perl-install
parent59df4a0b5112357edc00a556fd4fab67e9e6db09 (diff)
downloaddrakx-0b4381367ed5446a8a2f391ae1256643ce01c1a9.tar
drakx-0b4381367ed5446a8a2f391ae1256643ce01c1a9.tar.gz
drakx-0b4381367ed5446a8a2f391ae1256643ce01c1a9.tar.bz2
drakx-0b4381367ed5446a8a2f391ae1256643ce01c1a9.tar.xz
drakx-0b4381367ed5446a8a2f391ae1256643ce01c1a9.zip
really allow to select the network
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakroam9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index 437190e07..ca68689ff 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -82,8 +82,8 @@ sub configure_selected() {
my ($selected) = $wireless_list->get_selected_indices or return;
my $ap = $wireless_list->{data}[$selected][0];
my $network = $wireless_networks->{$ap};
- my $ssid = $network->{ssid};
+ my $ssid = $network->{ssid};
my $wireless_net =
$ssid && exists $net->{wireless}{$ssid} ?
$net->{wireless}{$ssid} :
@@ -132,10 +132,11 @@ sub configure_selected() {
sub connect_to_selected() {
my ($selected) = $wireless_list->get_selected_indices or return;
- my $id = $wireless_list->{data}[$selected][0];
+ my $ap = $wireless_list->{data}[$selected][0];
+ my $network = $wireless_networks->{$ap};
- if (defined $id) {
- eval { $monitor->select_network($id) };
+ if (defined $network->{id}) {
+ eval { $monitor->select_network($network->{id}) };
$@ and err_dialog(N("Wireless connection"), N("Unable to contact daemon"));
} else {
configure_selected();