From e6afe9e361836f42de66f2e1f6f4622f5f99a426 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 27 May 2005 01:57:05 +0000
Subject: Remove the naming convention with a trailing "s" for supplementary
 CDs medium ids

---
 perl-install/install_any.pm | 5 +----
 perl-install/pkgs.pm        | 7 ++-----
 2 files changed, 3 insertions(+), 9 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index eec4873b1..4a46564a6 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -184,7 +184,6 @@ sub errorOpeningFile($) {
     }
 
     #- Do not unselect supplementary CDs.
-    #return if $asked_medium =~ /^\d+s$/;
     return if install_medium::by_id($asked_medium)->is_suppl_cd;
 
     #- keep in mind the asked medium has been refused on this way.
@@ -451,9 +450,7 @@ sub selectSupplMedia {
 	    'Network (http)' => 'http',
 	    'Network (ftp)' => 'ftp',
 	}->{$suppl};
-	my $medium_name = $suppl_method eq 'cdrom'
-	    ? (max(map { $_->{medium} =~ /^(\d+)s$/ ? $1 : 0 } values %{$o->{packages}{mediums}}) + 1) . "s"
-	    : int(keys %{$o->{packages}{mediums}}) + 1;
+	my $medium_name = int(keys %{$o->{packages}{mediums}}) + 1;
 	#- configure network if needed
 	prep_net_suppl_media($o) if !scalar keys %{$o->{intf}} && $suppl_method !~ /^(?:cdrom|disk)/;
 	local $::isWizard = 0;
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 836e1ba7b..91c2692aa 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -236,7 +236,7 @@ sub allMediums {
     sort {
 	#- put supplementary media at the end
 	my @x = ($a, $b);
-	foreach (@x) { /(\d+)s/ and $_ = 100 + $1 }
+	foreach (@x) { install_medium::by_id($_, $packages)->is_suppl and $_ += 100 }
 	$x[0] <=> $x[1];
     } keys %{$packages->{mediums}};
 }
@@ -1484,10 +1484,7 @@ sub by_id {
 }
 
 #- is this medium a supplementary medium ?
-sub is_suppl {
-    my ($self) = @_;
-    $self->{issuppl} || $self->{medium} =~ /^\d+s$/; #- XXX remove medium name kludge
-}
+sub is_suppl { my ($self) = @_; $self->{issuppl} }
 
 sub mark_suppl { my ($self) = @_; $self->{issuppl} = 1 }
 
-- 
cgit v1.2.1