From 27f651457a36da3023831e2a0197ea12435de89e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 17 Feb 2004 12:02:32 +0000 Subject: (ask_info3) really use parameters... --- perl-install/standalone/drakvpn | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn index 625967c40..92c403450 100644 --- a/perl-install/standalone/drakvpn +++ b/perl-install/standalone/drakvpn @@ -948,10 +948,7 @@ sub ask_info2 { sub ask_info3 { my ($title, $text, $section) = @_; - $in->ask_from('', -N("Add a Security Policy.\n -You can now add a new Security Policy.\n -Choose continue when you are done to write the data.\n"), + $in->ask_from($title, $text, [ { label => N("Command"), val => \$section->{command}, list => [ 'spdadd' ], allow_empty_list => 1 }, { label => N("Source IP range"), val => \$section->{src_range}, type => 'entry' }, { label => N("Destination IP range"), val => \$section->{dst_range}, type => 'entry' }, -- cgit v1.2.1