diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-08-26 10:50:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-08-26 10:50:29 +0000 |
| commit | a986e79cac3c6d459f0b1c5738d4178443426848 (patch) | |
| tree | 48dc93df65b69652276a72d43e0a2603e5bcb1a2 | |
| parent | 3c6366df1961522739942ada1030ea9b85f56a2b (diff) | |
| download | drakx-a986e79cac3c6d459f0b1c5738d4178443426848.tar drakx-a986e79cac3c6d459f0b1c5738d4178443426848.tar.gz drakx-a986e79cac3c6d459f0b1c5738d4178443426848.tar.bz2 drakx-a986e79cac3c6d459f0b1c5738d4178443426848.tar.xz drakx-a986e79cac3c6d459f0b1c5738d4178443426848.zip | |
focus_first on the webdav server field
| -rw-r--r-- | perl-install/diskdrake/dav.pm | 16 |
1 files changed, 9 insertions, 7 deletions
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; } |