From 3101d0530c2a2871c32138f77bb6baca6ab6db02 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 21 Mar 2005 16:20:30 +0000 Subject: Don't copy RPMs from supplementary media, except supplementary CDs --- perl-install/install_any.pm | 5 ++++- 1 file changed, 4 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 650a8d3d8..a38246aeb 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -555,6 +555,7 @@ sub setup_suppl_medium { $supplmedium->{selected} = 1; $supplmedium->{method} = $suppl_method; $supplmedium->{with_hdlist} = 'media_info/hdlist.cz'; #- for install_urpmi + $supplmedium->{issuppl} = 1; #- remember it's a suppl medium } sub _media_rank { @@ -690,8 +691,10 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.", } }; foreach my $k (pkgs::allMediums($o->{packages})) { - my ($wait_w, $wait_message) = fs::format::wait_message($o); #- nb, this is only called when interactive my $m = $o->{packages}{mediums}{$k}; + #- don't copy rpms of supplementary media, except suppl CDs + next if $m->{issuppl} && $m->{medium} !~ /^\d+s$/; + my ($wait_w, $wait_message) = fs::format::wait_message($o); #- nb, this is only called when interactive $wait_message->(N("Copying in progress") . "\n($m->{descr})"); #- XXX to be translated if ($k != $current_medium) { do { -- cgit v1.2.1