diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-09-09 09:49:22 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-09-09 09:49:22 +0000 |
commit | 1b995a53d20ab7a3e21d0a969ead405b0c1a217f (patch) | |
tree | 86dbf5b5c794a68678546a5b7b00adee5968c099 /perl-install/install_any.pm | |
parent | 1989ac723aa99cc95ec885fb431f71a2c976e627 (diff) | |
download | drakx-1b995a53d20ab7a3e21d0a969ead405b0c1a217f.tar drakx-1b995a53d20ab7a3e21d0a969ead405b0c1a217f.tar.gz drakx-1b995a53d20ab7a3e21d0a969ead405b0c1a217f.tar.bz2 drakx-1b995a53d20ab7a3e21d0a969ead405b0c1a217f.tar.xz drakx-1b995a53d20ab7a3e21d0a969ead405b0c1a217f.zip |
When adding http suppl media, repropose the last url entered. Very
useful in case of typo in the url
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r-- | perl-install/install_any.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index bed17c314..b8ba3ba33 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -532,8 +532,13 @@ sub selectSupplMedia { #- add $mediadir in fstab for post-installation push @{$o->{all_hds}{nfss}}, { fs_type => 'nfs', mntpoint => $mediadir, device => $dev, options => "noauto,ro,nosuid,soft,rsize=8192,wsize=8192" }; } else { - $url = $o->ask_from_entry('', N("URL of the mirror?")) or return 'error'; - $url =~ s!/+\z!!; + our $last_url; #- propose the last URL for correction in case of error + $o->ask_from_({ focus_first => 1 }, + [ { label => N("URL of the mirror?"), + #hidden => 1, + val => \$last_url } ]); + $last_url =~ s!/+\z!!; + $url = $last_url or return 'error'; } useMedium($medium_name); require http if $suppl_method eq 'http'; |