diff options
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 39bd32b98..a0361cf6a 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -506,7 +506,12 @@ sub chooseGroups { { list => \@groups, help => sub { translate($o->{compssUsersDescr}{$_}) }, ref => sub { \$o->{compssUsersChoice}{$_} }, - icon2f => sub { "/usr/share/icons/" . ($o->{compssUsersIcons}{$_} || 'default') . "_section.xpm" }, + icon2f => sub { + my $f = "/usr/share/icons/" . ($o->{compssUsersIcons}{$_} || 'default'); + -e "$f.xpm" or $f .= "_section"; + -e "$f.xpm" or $f = '/usr/share/icons/default_section'; + "$f.xpm"; + }, label => sub { translate($_) . ($size{$_} ? sprintf " (%d%s)", round_down($size{$_} / sqr(1024), 10), _("MB") : '') }, }, $o->{meta_class} eq 'desktop' ? { list => [ _("All") ], ref => sub { \$all }, shadow => 0 } : (), |