From a986e79cac3c6d459f0b1c5738d4178443426848 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 26 Aug 2003 10:50:29 +0000 Subject: focus_first on the webdav server field --- perl-install/diskdrake/dav.pm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'perl-install/diskdrake') diff --git a/perl-install/diskdrake/dav.pm b/perl-install/diskdrake/dav.pm index e393cd822..1f1008de1 100644 --- a/perl-install/diskdrake/dav.pm +++ b/perl-install/diskdrake/dav.pm @@ -82,13 +82,15 @@ sub ask_server { my ($in, $dav, $_all_hds) = @_; my $server = $dav->{device}; - $in->ask_from('', N("Please enter the WebDAV server URL"), - [ { val => \$server } ], - complete => sub { - $server =~ m!https?://! or $in->ask_warn('', N("The URL must begin with http:// or https://")), return 1; - 0; - }, - ) or return; + $in->ask_from_({ messages => N("Please enter the WebDAV server URL"), + focus_first => 1, + callbacks => { + complete => sub { + $server =~ m!https?://! or $in->ask_warn('', N("The URL must begin with http:// or https://")), return 1; + 0; + }, + } }, + [ { val => \$server } ]) or return; $dav->{device} = $server; } -- cgit v1.2.1