summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-17 06:13:04 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-17 06:13:04 +0000
commit569e86cd633004db5c9b9619d5cca344a23d2250 (patch)
treec45a3bd11820cfc7b20af14455ee3158d94ada26 /perl-install
parentc44cd87427adfbca62fe107e4c0eb24538c01212 (diff)
downloaddrakx-569e86cd633004db5c9b9619d5cca344a23d2250.tar
drakx-569e86cd633004db5c9b9619d5cca344a23d2250.tar.gz
drakx-569e86cd633004db5c9b9619d5cca344a23d2250.tar.bz2
drakx-569e86cd633004db5c9b9619d5cca344a23d2250.tar.xz
drakx-569e86cd633004db5c9b9619d5cca344a23d2250.zip
Display the list of media already taken into accounts when asking for
supplementary media
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm17
1 files changed, 12 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 3b3538fc0..82223cb4c 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -144,7 +144,7 @@ sub errorOpeningFile($) {
my ($file) = @_;
$file eq 'XXX' and return; #- special case to force closing file after rpmlib transaction.
$current_medium eq $asked_medium and log::l("errorOpeningFile $file"), return; #- nothing to do in such case.
- $::o->{packages}{mediums}{$asked_medium}{selected} or return; #- not selected means no need for worying about.
+ $::o->{packages}{mediums}{$asked_medium}{selected} or return; #- not selected means no need to worry about.
my $current_method = $::o->{packages}{mediums}{$asked_medium}{method} || $::o->{method};
my $max = 32; #- always refuse after $max tries.
@@ -366,8 +366,15 @@ sub selectSupplMedia {
#- ask whether there are supplementary media
my $prev_asked_medium = $asked_medium;
if ($suppl_method && !$o->{isUpgrade}
- && (my $suppl = $o->ask_from_list_('', N("Do you have a supplementary installation media to configure?"),
- [ N_("None"), N_("CD-ROM"), N_("Network (http)"), N_("Network (ftp)") ], 'None')
+ && (my $suppl = $o->ask_from_list_(
+ '', formatAlaTeX(
+#-PO: keep the double empty lines between sections, this is formated a la LaTeX
+ N("The following media have been found and will be used during install: %s.
+
+
+Do you have a supplementary installation media to configure?",
+ join ", ", uniq(map { $_->{descr} } values %{$o->{packages}{mediums}}))
+ ), [ N_("None"), N_("CD-ROM"), N_("Network (http)"), N_("Network (ftp)") ], 'None')
) ne 'None')
{
#- translate to method name
@@ -612,7 +619,7 @@ sub warnAboutNaughtyServers {
my @naughtyServers = pkgs::naughtyServers($o->{packages}) or return 1;
my $r = $o->ask_from_list_('',
formatAlaTeX(
- #-PO: keep the doble empty lines between sections, this is formated a la LaTeX
+ #-PO: keep the double empty lines between sections, this is formated a la LaTeX
N("You have selected the following server(s): %s
@@ -635,7 +642,7 @@ sub warnAboutRemovedPackages {
my @removedPackages = keys %{$packages->{state}{ask_remove} || {}} or return;
if (!$o->ask_yesorno('',
formatAlaTeX(
- #-PO: keep the doble empty lines between sections, this is formated a la LaTeX
+ #-PO: keep the double empty lines between sections, this is formated a la LaTeX
N("The following packages will be removed to allow upgrading your system: %s