diff options
Diffstat (limited to 'transfugdrake')
| -rwxr-xr-x | transfugdrake | 76 |
1 files changed, 47 insertions, 29 deletions
diff --git a/transfugdrake b/transfugdrake index f0cf289..a064509 100755 --- a/transfugdrake +++ b/transfugdrake @@ -74,16 +74,21 @@ my $wiz = wizards->new({ { type => 'list', val => \$files_migration_type, - list => [ - N("Import documents (recommended)"), - N("Share documents"), - N("Skip step"), - ], + list => [ "import", "share", "skip" ], + format => sub { + +{ + import => N("Import documents (recommended)"), + share => N("Share documents"), + skip => N("Skip step"), + }->{$_[0]} if $_[0]; + }, }, ], post => sub { - my $_w = $in->wait_message('', N("Migration of documents in progress")); - step_import('files'); + if ($files_migration_type eq "import") { + my $_w = $in->wait_message('', N("Migration of documents in progress")); + step_import('files'); + } next_step(); }, }, @@ -93,17 +98,21 @@ my $wiz = wizards->new({ { type => 'list', val => \$bookmarks_migration_type, - list => [ - N("Import bookmarks (recommended)"), - if_(member('Mozilla Firefox', @windows_items), - N("Share bookmarks")), - N("Skip step"), - ], + list => [ "import", if_(member('Mozilla Firefox', @windows_items), "share"), "skip" ], + format => sub { + +{ + import => N("Import bookmarks (recommended)"), + share => N("Share bookmarks"), + skip => N("Skip step"), + }->{$_[0]} if $_[0]; + }, }, ], post => sub { - my $_w = $in->wait_message('', N("Migration of bookmarks in progress")); - step_import('bookmarks'); + if ($bookmarks_migration_type eq "import") { + my $_w = $in->wait_message('', N("Migration of bookmarks in progress")); + step_import('bookmarks'); + } next_step(); }, }, @@ -112,17 +121,21 @@ my $wiz = wizards->new({ data => [ { type => 'list', val => \$mail_migration_type, - list => [ - N("Import mail (recommended)"), - if_(member('Mozilla Thunderbird', @windows_items), - N("Share mail")), - N("Skip step"), - ], + list => [ "import", if_(member('Mozilla Thunderbird', @windows_items), "share"), "skip" ], + format => sub { + +{ + import => N("Import mail (recommended)"), + share => N("Share mail"), + skip => N("Skip step"), + }->{$_[0]} if $_[0], + }, }, ], post => sub { - my $_w = $in->wait_message('', N("Migration of mail in progress")); - step_import('mail'); + if ($mail_migration_type eq 'import') { + my $_w = $in->wait_message('', N("Migration of mail in progress")); + step_import('mail'); + } next_step(); }, }, @@ -131,15 +144,20 @@ my $wiz = wizards->new({ data => [ { type => 'list', val => \$background_migration_type, - list => [ - N("Use Mandriva background"), - N("Import background"), - ], + list => [ "skip", "import" ], + format => sub { + +{ + "skip" => N("Use Mandriva background"), + "import" => N("Import background"), + }->{$_[0]} if $_[0]; + }, }, ], post => sub { - my $_w = $in->wait_message('', N("Migration of background in progress")); - step_import('background'); + if ($background_migration_type eq 'import') { + my $_w = $in->wait_message('', N("Migration of background in progress")); + step_import('background'); + } next_step(); }, }, |