summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-09-09 09:49:22 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-09-09 09:49:22 +0000
commit1b995a53d20ab7a3e21d0a969ead405b0c1a217f (patch)
tree86dbf5b5c794a68678546a5b7b00adee5968c099
parent1989ac723aa99cc95ec885fb431f71a2c976e627 (diff)
downloaddrakx-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
-rw-r--r--perl-install/install_any.pm9
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';