summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-13 13:04:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-13 13:04:18 +0000
commit21ba800aefa91802836150371f77d459ababcc69 (patch)
tree6033506be6f64fc20b9b3d1ebf2645829b9b3994 /perl-install/install_steps_gtk.pm
parent28c5fbc0567b633bdc24dcad32fabfe414791f0f (diff)
downloaddrakx-backup-do-not-use-21ba800aefa91802836150371f77d459ababcc69.tar
drakx-backup-do-not-use-21ba800aefa91802836150371f77d459ababcc69.tar.gz
drakx-backup-do-not-use-21ba800aefa91802836150371f77d459ababcc69.tar.bz2
drakx-backup-do-not-use-21ba800aefa91802836150371f77d459ababcc69.tar.xz
drakx-backup-do-not-use-21ba800aefa91802836150371f77d459ababcc69.zip
compss is deprecated. use compssUsers for the tree
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm33
1 files changed, 15 insertions, 18 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index b9f43a150..f72bd7a42 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -249,7 +249,7 @@ a percentage of %d%% will install as many packages as possible.", $percentage, $
$w->main and $val + 1; #- add a single byte (hack?) to make selection of 0 bytes ok.
}
sub choosePackagesTree {
- my ($o, $packages, $compss) = @_;
+ my ($o, $packages) = @_;
$o->set_help('choosePackagesTree');
my ($curr, $parent, $info_widget, $w_size, $go, $idle, $flat, $auto_deps);
@@ -292,8 +292,8 @@ sub choosePackagesTree {
my $add_parent; $add_parent = sub {
$_[0] or return undef;
if (my $w = $wtree{$_[0]}) { return $w }
- my $s; foreach (split '/', $_[0]) {
- my $s2 = $s ? "$s/$_" : $_;
+ my $s; foreach (split '\|', $_[0]) {
+ my $s2 = $s ? "$s|$_" : $_;
$wtree{$s2} ||= do {
my $n = $tree->insert_node($s ? $add_parent->($s) : undef, undef, [$_, '', ''], 5, (undef) x 4, 0, 0);
$n;
@@ -319,26 +319,23 @@ sub choosePackagesTree {
$tree->freeze;
while (1) { $tree->remove_node($tree->node_nth(0) || last) }
- my ($root, $leaf);
if ($flat = $_[0]) {
$add_node->($_, undef) foreach sort grep { my $pkg = pkgs::packageByName($packages, $_);
pkgs::packageMedium($pkg)->{selected} } keys %{$packages->{names}};
} else {
- my (@others, $old_root);
- foreach (sort @$compss) {
- ($root, $leaf) = m|(.*)/(.+)|o or ($root, $leaf) = ('', $_);
- if ($root ne $old_root) {
- $add_node->($_, $old_root . '/' . _("Other")) foreach @others;
- @others = ();
- $old_root = $root
- }
- my $pkg = pkgs::packageByName($packages, $leaf);
- pkgs::packageMedium($pkg)->{selected} or next;
- if (pkgs::packageRate($pkg) < 4) {
- push @others, $leaf;
- } else {
- $add_node->($leaf, $root);
+ foreach (@{$o->{compssUsersSorted}}) {
+ my $root = $o->{compssUsers}{$_}{path} . '|' . $_;
+ my (%fl, @firstchoice, @others);
+ $fl{$_} = 1 foreach @{$o->{compssUsers}{$_}{flags}};
+ foreach my $p (values %{$packages->{names}}) {
+ my ($rate, @flags) = pkgs::packageRateRFlags($p);
+ next if !($rate && !grep { !grep { /^!(.*)/ ? !$fl{$1} : $fl{$_} } split('\|\|') } @flags);
+ $rate >= 3 ?
+ push(@firstchoice, pkgs::packageName($p)) :
+ push(@others, pkgs::packageName($p));
}
+ $add_node->($_, $root ) foreach sort @firstchoice;
+ $add_node->($_, $root . '|' . _("Other")) foreach sort @others;
}
}
$tree->thaw;