From 1b995a53d20ab7a3e21d0a969ead405b0c1a217f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 9 Sep 2005 09:49:22 +0000
Subject: When adding http suppl media, repropose the last url entered. Very
 useful in case of typo in the url

---
 perl-install/install_any.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_any.pm')

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';
-- 
cgit v1.2.1