From 27098585a79fc10be1d9c627da51ed49f4611d1d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 28 Aug 2002 09:26:35 +0000
Subject: group icons are not used, remove them

---
 perl-install/install_steps_gtk.pm | 6 ------
 1 file changed, 6 deletions(-)

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

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index d10d8453e..cac0ccf95 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -219,12 +219,6 @@ sub reallyChooseGroups {
 	my $text = translate($o->{compssUsers}{$e}{label});
 	my $help = translate($o->{compssUsers}{$e}{descr});
 
-	my $file = do {
-	    my $f = "$ENV{SHARE_PATH}/icons/" . ($o->{compssUsers}{$e}{icons} || 'default');
-	    -e "$f.png" or $f .= "_section";
-	    -e "$f.png" or $f = "$ENV{SHARE_PATH}/icons/default_section";
-	    "$f.png";
-	};
 	my $check = Gtk::CheckButton->new($text);
 	$check->set_active($val->{$e});
 	$check->signal_connect(clicked => sub { 
-- 
cgit v1.2.1