From 00e85ed40cd6fdf92cf0dcb54fe45450a04b440e Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Mon, 29 Aug 2005 15:27:48 +0000 Subject: fix ok_cancel next_back error --- samba_wizard/Samba.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'samba_wizard/Samba.pm') diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm index 02ed73e1..cae13a74 100755 --- a/samba_wizard/Samba.pm +++ b/samba_wizard/Samba.pm @@ -95,14 +95,14 @@ $o->{pages} = { no_back => 1, pre => sub { if (-f $wiz_samba_etc) { - $::in->ask_warn(N("Information"), N("It seems you previously setup a Samba server. This wizard will re-read your old configuration, and show you the Samba server type you choose")); +# $::isWizard = 1; + $::in->ask_warn(N("Information"), N("It seems you previously setup a Samba server. This wizard will re-read your old configuration, and show you the Samba server type you choose")) and return; my $data = cat_($wiz_samba_etc); # detect old Samba type my ($old_type) = $data =~ /type=(\d)/; $o->{var}{wiz_type} = chomp_($old_type); } else { $o->{var}{wiz_type} = 2 } }, - next => 'ask_type', post => sub { if ($o->{var}{wiz_type} == 2) { return 'pdc' } -- cgit v1.2.1