From 48fd0caf51d04e7956618f632173a6c81f31e870 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Tue, 20 Jun 2006 15:52:38 +0000 Subject: fix ask_warn problem --- web_wizard/Apache.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'web_wizard') diff --git a/web_wizard/Apache.pm b/web_wizard/Apache.pm index dcb68dc8..ce6f99d4 100755 --- a/web_wizard/Apache.pm +++ b/web_wizard/Apache.pm @@ -30,6 +30,7 @@ use MDK::Wizard::Wizcommon; use MDK::Wizard::Varspaceval; my $wiz = new MDK::Wizard::Wizcommon; +my $in = interactive->vnew; my $file = "/etc/httpd/conf/httpd.conf"; my $root; @@ -110,7 +111,7 @@ $o->{pages} = { }, complete => sub { if (!$o->{var}{user_dir}) { - $::in->ask_warn(N('Error'), N('You must specify a user directory.')); return 1; + $in->ask_warn(N('Error'), N('You must specify a user directory.')); return 1; } else { return 0; }; }, data => [ { label => N("user http sub-directory: ~/"), help => N("Type the name of the directory users should create in their homes (without ~/) to get it available via http://www.yourserver.com/~user"), val => \$o->{var}{user_dir} }, @@ -125,7 +126,7 @@ $o->{pages} = { ], complete => sub { if (! -d $o->{var}{shared_dir}) { - $::in->ask_warn(N("Error"), N("The path you entered does not exist.")); return 1; } + $in->ask_warn(N("Error"), N("The path you entered does not exist.")); return 1; } else { return 0; }; }, next => 'summary', -- cgit v1.2.1