diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2008-09-01 09:13:25 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2008-09-01 09:13:25 +0000 |
commit | 848081d301fc9c565c3bc5e1e938811b04769406 (patch) | |
tree | f514bf9ab5dc281fba28a30fd6757856a5631cfb /perl-install/install/steps_gtk.pm | |
parent | 05cc815a368874128fdd8dce1ad079b64831c8d2 (diff) | |
download | drakx-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.pm | 5 |
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, }, }; |