summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-10-05 23:04:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-10-05 23:04:34 +0000
commit6e10a5c1c062bc55d1a3327cd13d4447ee9a3010 (patch)
tree5fe5c574bc5ad4ae5ac95d588bf42c98b6bb12b4 /perl-install/install_steps_interactive.pm
parent32ffa5852bbaf28a57bf1d6304b4ca57350d61d2 (diff)
downloaddrakx-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.pm7
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 } : (),