From e5300a2a2d6defa24d3476ee005badb5d44f3155 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Tue, 31 Mar 2009 09:16:58 +0000 Subject: display the version of the distro in the install/upgrade screen (#44602) --- perl-install/install/NEWS | 3 ++- perl-install/install/steps_interactive.pm | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 018075ee4..4d0080fe3 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -3,8 +3,9 @@ - make button name match text when inserting a CD ("cancel" rather than "previous") - rotate /root/drakx/install1.log too -- don't list installed distros with other archs as ugrading between +- don't list installed distros with other archs as upgrading between archs is not supported +- display the version of the distro in the install/upgrade screen (#44602) Version 12.21 - 30 March 2009 diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index fff933b8d..baeb05415 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -131,7 +131,7 @@ sub selectInstallClass { log::l("proposing to upgrade partitions " . join(" ", map { $_->{part} && $_->{part}{device} } @l)); - my @releases = uniq(map { $_->{release} } @l); + my @releases = uniq(map { "$_->{version} $_->{release}" } @l); if (@releases != @l) { #- same release name so adding the device to differentiate them: $_->{release} .= " ($_->{part}{device})" foreach @l; @@ -147,7 +147,7 @@ sub selectInstallClass { { val => \$p, list => [ @l, N_("_: This is a noun:\nInstall") ], type => 'list', - format => sub { ref($_[0]) ? N("Upgrade %s", $_[0]{release}) : translate($_[0]) } + format => sub { ref($_[0]) ? N("Upgrade %s", "$_[0]->{version} $_[0]->{release}") : translate($_[0]) } } ]); if (ref $p) { _check_unsafe_upgrade_and_warn($o, $p->{part}) or $p = undef; -- cgit v1.2.1