diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakroam | 9 |
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(); |