From cbf5793f8ce2f9ac5bc0e558095b54a996e39217 Mon Sep 17 00:00:00 2001 From: Christian Belisle Date: Fri, 25 Jan 2002 15:33:28 +0000 Subject: add a warning if no user found --- transfugdrake | 19 +++++++++++++------ 1 file 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: -- cgit v1.2.1