From 79ea105ded7d7a7c35a3a3920249ca85038a3625 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 14 Mar 2001 15:39:24 +0000
Subject: (chooseGroups): add path for seperating groups, use "label" for the
 group text

---
 perl-install/install_steps_interactive.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'perl-install')

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' }),
-- 
cgit v1.2.1