summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/dav.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-08-26 10:50:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-08-26 10:50:29 +0000
commita986e79cac3c6d459f0b1c5738d4178443426848 (patch)
tree48dc93df65b69652276a72d43e0a2603e5bcb1a2 /perl-install/diskdrake/dav.pm
parent3c6366df1961522739942ada1030ea9b85f56a2b (diff)
downloaddrakx-backup-do-not-use-a986e79cac3c6d459f0b1c5738d4178443426848.tar
drakx-backup-do-not-use-a986e79cac3c6d459f0b1c5738d4178443426848.tar.gz
drakx-backup-do-not-use-a986e79cac3c6d459f0b1c5738d4178443426848.tar.bz2
drakx-backup-do-not-use-a986e79cac3c6d459f0b1c5738d4178443426848.tar.xz
drakx-backup-do-not-use-a986e79cac3c6d459f0b1c5738d4178443426848.zip
focus_first on the webdav server field
Diffstat (limited to 'perl-install/diskdrake/dav.pm')
-rw-r--r--perl-install/diskdrake/dav.pm16
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;
}