summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-12-28 13:10:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-12-28 13:10:23 +0000
commitf541a6036c4b43bdfb0a45873c62e2c828daeb9e (patch)
treee86494ebf43323c5b51155746a08f47110c16a02 /perl-install/install_steps_interactive.pm
parent62a0a2936b8d05d04db3fe45694010a09fbb3730 (diff)
downloaddrakx-f541a6036c4b43bdfb0a45873c62e2c828daeb9e.tar
drakx-f541a6036c4b43bdfb0a45873c62e2c828daeb9e.tar.gz
drakx-f541a6036c4b43bdfb0a45873c62e2c828daeb9e.tar.bz2
drakx-f541a6036c4b43bdfb0a45873c62e2c828daeb9e.tar.xz
drakx-f541a6036c4b43bdfb0a45873c62e2c828daeb9e.zip
- create set_rpmsrate_category_flags(), set_rpmsrate_default_category_flags(), default_packages(), rpmsrate_always_flags() replacing setDefaultPackages()
- create select_default_packages() - apply "always" rpmsrate flags ASAP and skip packages with flag "FALSE" in computeGroupSize() => 30% speed-up
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm5
1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index a7f7a5af9..f6cb196cd 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -583,10 +583,7 @@ sub chooseGroups {
$o->ask_warn('', N("Selected size is larger than available space"));
}
-
- $o->{rpmsrate_flags_chosen}{$_} = 0 foreach grep { /^CAT_/ } keys %{$o->{rpmsrate_flags_chosen}};
- $o->{rpmsrate_flags_chosen}{"CAT_$_"} = 1 foreach map { @{$_->{flags}} } grep { $_->{selected} } @$compssUsers;
- $o->{rpmsrate_flags_chosen}{CAT_SYSTEM} = 1;
+ install_any::set_rpmsrate_category_flags($o, $compssUsers);
log::l("compssUsersChoice selected: ", join(', ', map { qq("$_->{path}|$_->{label}") } grep { $_->{selected} } @$compssUsers));