From 87af17001f8c10af052871ac2f4f8e6b60ac0d04 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 4 Oct 2007 18:42:49 +0000
Subject: implement skip buttons

---
 transfugdrake | 76 ++++++++++++++++++++++++++++++++++++-----------------------
 1 file changed, 47 insertions(+), 29 deletions(-)

(limited to 'transfugdrake')

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();
             },
         },
-- 
cgit v1.2.1