add a warning if no user found

1 files changed, 13 insertions, 6 deletions

diff --git a/transfugdrake b/transfugdrake
index 24e2ca3..bc32f73 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -146,13 +146,20 @@ elsif($document_location eq $win_mountpoint.'/'.$documents_folders[1]) {
         $notvalid = 0;
     }
 }
- 
-$::Wizard_no_previous = 0;
-my $chosen_user = $in->ask_from_list(_("Transfugdrake"),
-_("You have the following users in Windows. Which one do you want to use for migration?"),
-[ @users ], $users[0]) or goto step_0;
-$laststep = "step_2";
 
+if($users[0] eq "") {
+    $in->ask_warn(_("No user found!"),
+                  _("Can't find any user on your Windows partition. Will copy all documents from Windows"));
+}
+else {
+    $::Wizard_no_previous = 0;
+    my $chosen_user = $in->ask_from_list(_("Transfugdrake"),
+    _("You have the following users in Windows. Which one do you want to use for migration?"),
+    [ @users ], $users[0]) or goto step_0;
+}
+
+$laststep = "step_2";
+    
 #- **********************************
 #- * 3rd step: Task Chooser
 step_3: