summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-01-19 12:32:55 +0000
committerFrancois Pons <fpons@mandriva.com>2001-01-19 12:32:55 +0000
commit54dfef748e91bd069dde3146dd402f90f25938a0 (patch)
treee43bd4e5da5434f06efa7785b78aab01335020f4 /perl-install/install_steps_interactive.pm
parent8c4a3788c867abd17b52f44cc9f23e009e0664ba (diff)
downloaddrakx-backup-do-not-use-54dfef748e91bd069dde3146dd402f90f25938a0.tar
drakx-backup-do-not-use-54dfef748e91bd069dde3146dd402f90f25938a0.tar.gz
drakx-backup-do-not-use-54dfef748e91bd069dde3146dd402f90f25938a0.tar.bz2
drakx-backup-do-not-use-54dfef748e91bd069dde3146dd402f90f25938a0.tar.xz
drakx-backup-do-not-use-54dfef748e91bd069dde3146dd402f90f25938a0.zip
fixed unselect group and inoperant individual package selection.
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e137f9a85..64e2c27c3 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -511,7 +511,7 @@ sub chooseGroups {
$o->ask_many_from_list('', _("Package Group Selection"),
{ list => \@groups,
help => sub { translate($o->{compssUsersDescr}{$_}) },
- ref => sub { \$val{$_} },
+ val => sub { \$val{$_} },
icon2f => sub {
my $f = "/usr/share/icons/" . ($o->{compssUsersIcons}{$_} || 'default');
-e "$f.xpm" or $f .= "_section";
@@ -520,8 +520,8 @@ sub chooseGroups {
},
label => sub { translate($_) . ($size{$_} ? sprintf " (%d%s)", $size{$_}, _("MB") : '') },
},
- if_($o->{meta_class} eq 'desktop', { list => [ _("All") ], ref => sub { \$all }, shadow => 0 }),
- if_($individual, { list => [ _("Individual package selection") ], ref => sub { $individual } }),
+ if_($o->{meta_class} eq 'desktop', { list => [ _("All") ], val => sub { \$all }, shadow => 0 }),
+ if_($individual, { list => [ _("Individual package selection") ], val => sub { \$individual } }),
) or return;
if ($all) {
$o->{compssUsersChoice}{$_} = 1 foreach map { @{$compssUsers->{$_}} } @{$o->{compssUsersSorted}};