From 6e10a5c1c062bc55d1a3327cd13d4447ee9a3010 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Oct 2000 23:04:34 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps_interactive.pm')

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 } : (),
-- 
cgit v1.2.1