From 89ae1bb01c0bf079392bf199acb94841f5597496 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 13 Mar 2001 11:22:38 +0000 Subject: (chooseGroups): fix to get back the icons --- perl-install/install_steps_interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index caaf43188..24a0bd235 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -549,7 +549,7 @@ sub chooseGroups { help => translate($o->{compssUsers}{$_}{descr}), val => \$val{$_}, type => 'bool', - icon2f => sub { + icon => do { my $f = "/usr/share/icons/" . ($o->{compssUsers}{$_}{icons} || 'default'); -e "$f.png" or $f .= "_section"; -e "$f.png" or $f = '/usr/share/icons/default_section'; -- cgit v1.2.1