From e2f19cc7120b37c06ea2198edd9b19ebbb02cdcb Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 8 Apr 2005 14:57:42 +0000
Subject: When sorting CDs, put supplementary CDs at the end

---
 perl-install/pkgs.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index c18755d81..f3b1c34cc 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -240,8 +240,14 @@ sub packagesToInstall {
 
 sub allMediums {
     my ($packages) = @_;
-    sort { $a <=> $b } keys %{$packages->{mediums}};
+    sort {
+	#- put supplementary media at the end
+	my @x = ($a, $b);
+	foreach (@x) { /(\d+)s/ and $_ = 100 + $1 }
+	$x[0] <=> $x[1];
+    } keys %{$packages->{mediums}};
 }
+
 sub mediumDescr {
     my ($packages, $medium_name) = @_;
     $packages->{mediums}{$medium_name}{descr};
-- 
cgit v1.2.1