diff options
| -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; } |