summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-09-01 09:13:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-09-01 09:13:25 +0000
commit848081d301fc9c565c3bc5e1e938811b04769406 (patch)
treef514bf9ab5dc281fba28a30fd6757856a5631cfb /perl-install/install/steps_gtk.pm
parent05cc815a368874128fdd8dce1ad079b64831c8d2 (diff)
downloaddrakx-848081d301fc9c565c3bc5e1e938811b04769406.tar
drakx-848081d301fc9c565c3bc5e1e938811b04769406.tar.gz
drakx-848081d301fc9c565c3bc5e1e938811b04769406.tar.bz2
drakx-848081d301fc9c565c3bc5e1e938811b04769406.tar.xz
drakx-848081d301fc9c565c3bc5e1e938811b04769406.zip
- if network access, configure urpmi with --mirrorlist --distrib,
and install updates. This replaces the previous "Install Updates" step. - this calls gurpmi.addmedia/urpmi.addmedia and gurpmi2/urpmi in chroot - we do not allow anymore to choose which updates are going to be updated (ie choosePackagesTree is not used for this anymore)
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
-rw-r--r--perl-install/install/steps_gtk.pm5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 4a66000c6..372a7ed30 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -328,7 +328,7 @@ sub reallyChooseGroups {
}
sub choosePackagesTree {
- my ($o, $packages, $o_limit_medium) = @_;
+ my ($o, $packages) = @_;
my $available = install::any::getAvailableSpace($o);
my $availableCorrected = install::pkgs::invCorrectSize($available / sqr(1024)) * sqr(1024);
@@ -351,7 +351,6 @@ sub choosePackagesTree {
my ($add_node, $flat) = @_;
if ($flat) {
foreach (sort map { $_->name }
- grep { !$o_limit_medium || install::pkgs::packageMedium($packages, $_) == $o_limit_medium }
grep { $_ && $_->arch ne 'src' }
@{$packages->{depslist}}) {
$add_node->($_, undef);
@@ -361,7 +360,6 @@ sub choosePackagesTree {
my (@firstchoice, @others);
my %fl = map { ("CAT_$_" => 1) } @{$root->{flags}};
foreach my $p (@{$packages->{depslist}}) {
- !$o_limit_medium || install::pkgs::packageMedium($packages, $p) == $o_limit_medium or next;
my @flags = $p->rflags;
next if !($p->rate && any { any { !/^!/ && $fl{$_} } split('\|\|') } @flags);
$p->rate >= 3 ?
@@ -489,7 +487,6 @@ sub choosePackagesTree {
],
state => {
auto_deps => 1,
- flat => $o_limit_medium,
},
};