From 72faa98d129b97839ec7b7f5e0175a3908da5ed8 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 1 Apr 2005 16:06:39 +0000
Subject: Sort CDs according to CD numbers, not alphabetically

---
 perl-install/install_any.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 211a340e6..bf35ae788 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -385,7 +385,11 @@ sub ask_if_suppl_media {
 
 
 Do you have a supplementary installation media to configure?",
-	    join ", ", sort uniq(map { $_->{descr} } values %{$o->{packages}{mediums}})));
+	    join ", ", uniq(sort {
+		    (my $x) = $a =~ /CD(\d+)/;
+		    (my $y) = $b =~ /CD(\d+)/;
+		    $x && $y ? $x <=> $y : $a cmp $b
+		} map { $_->{descr} } values %{$o->{packages}{mediums}})));
     $o->ask_from(
 	'', $msg,
 	[ {
-- 
cgit v1.2.1