Netprofile: selecting correct netprofile for cloning (#26562 #26776 #29303 #29271 #31721).

1 files changed, 9 insertions, 0 deletions

diff --git a/bin/draknetprofile b/bin/draknetprofile
index 45438a0..13ceabc 100755
--- a/bin/draknetprofile
+++ b/bin/draknetprofile
@@ -86,6 +86,15 @@ $profiles_list->get_selection->signal_connect('changed' => sub {
 
 sub get_selected_profile() {
     my ($index) = $profiles_list->get_selected_indices;
+    if (not $index ) {
+        my $pc = @{$profiles_list->{data}};
+        my $index = 0;
+        for (my $i = 0; $i < $pc; $i++) {
+            if ( $profiles_list->{data}[$i][0] == 1 ) {
+                $index = $i;
+            }
+        }
+    };
     defined $index && $profiles_list->{data}[$index][1];
 }