From 0b4381367ed5446a8a2f391ae1256643ce01c1a9 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 30 Aug 2005 17:36:43 +0000 Subject: really allow to select the network --- perl-install/standalone/drakroam | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'perl-install/standalone/drakroam') 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(); -- cgit v1.2.1