diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-14 15:39:24 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-14 15:39:24 +0000 |
| commit | 79ea105ded7d7a7c35a3a3920249ca85038a3625 (patch) | |
| tree | 9152b62d437c3e6d6da1b4288739cd56a45f61c4 /perl-install/install_steps_interactive.pm | |
| parent | 37340085a97b26cdfdc60d36d858855f9c163140 (diff) | |
| download | drakx-backup-do-not-use-79ea105ded7d7a7c35a3a3920249ca85038a3625.tar drakx-backup-do-not-use-79ea105ded7d7a7c35a3a3920249ca85038a3625.tar.gz drakx-backup-do-not-use-79ea105ded7d7a7c35a3a3920249ca85038a3625.tar.bz2 drakx-backup-do-not-use-79ea105ded7d7a7c35a3a3920249ca85038a3625.tar.xz drakx-backup-do-not-use-79ea105ded7d7a7c35a3a3920249ca85038a3625.zip | |
(chooseGroups): add path for seperating groups, use "label" for the group text
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 36c56eb8b..aca617b65 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -539,14 +539,18 @@ sub chooseGroups { $val{$_} = ! grep { ! $o->{compssUsersChoice}{$_} } @{$compssUsers->{$_}{flags}}; } # @groups = grep { $size{$_} = round_down($size{$_} / sqr(1024), 10) } @groups; #- don't display the empty or small one (eg: because all packages are below $min_level) - my ($all, $size_text); + my ($all, $size_text, $path); my $update_size = sub { my $size = $system_size + $compute_size->(map { @{$compssUsers->{$_}{flags}} } grep { $val{$_} } @groups); $size_text = _("Selected size %d%s", pkgs::correctSize($size / sqr(1024)), _("MB")); }; &$update_size; $o->ask_from_entries_refH('', _("Package Group Selection"), [ - { val => \$size_text, type => 'label' }, - (map {; { + { val => \$size_text, type => 'label' }, {}, + (map {; + my $old = $path; + $path = $o->{compssUsers}{$_}{path}; + if_($old ne $path, { val => $path }), + { help => translate($o->{compssUsers}{$_}{descr}), val => \$val{$_}, type => 'bool', @@ -557,7 +561,7 @@ sub chooseGroups { "$f.png"; }, disabled => sub { $all }, - text => translate($_) . sprintf(" (%d%s)", $compute_size->(@{$compssUsers->{$_}{flags}}) / sqr(1024), _("MB")), + text => translate($o->{compssUsers}{$_}{label}) . sprintf(" (%d%s)", $compute_size->(@{$compssUsers->{$_}{flags}}) / sqr(1024), _("MB")), } } @groups), if_($o->{meta_class} eq 'desktop', { text => _("All"), val => \$all, type => 'bool' }), if_($individual, { text => _("Individual package selection"), val => $individual, advanced => 1, type => 'bool' }), |