enable to use new wizards layer rather than old through

use_new_data_structure flag.  (smooth migration was already helped
through addition of the "complete" callback)

1 files changed, 8 insertions, 1 deletions

diff --git a/drakwizard.pl b/drakwizard.pl
index c6895365..3edab765 100755
--- a/drakwizard.pl
+++ b/drakwizard.pl
@@ -81,8 +81,15 @@ if ($err) {
     $in->ask_okcancel(N("Error"), translate($err));
     $in->exit;
 }
-wizard($wiz->{o});
 
+if ($wiz->{o}{use_new_data_structure}) {
+    require wizards;
+    my $wizard = wizards->new;
+    $::in = $in;
+    $wizard->safe_process($wiz->{o}, $in);
+} else {
+    wizard($wiz->{o});
+}
 $in->exit;
 
 sub wizard {