diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-10-05 23:04:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-10-05 23:04:34 +0000 |
| commit | 6e10a5c1c062bc55d1a3327cd13d4447ee9a3010 (patch) | |
| tree | 5fe5c574bc5ad4ae5ac95d588bf42c98b6bb12b4 /perl-install/install_steps_interactive.pm | |
| parent | 32ffa5852bbaf28a57bf1d6304b4ca57350d61d2 (diff) | |
| download | drakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.tar drakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.tar.gz drakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.tar.bz2 drakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.tar.xz drakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.zip | |
no_comment
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 } : (), |