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