summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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();