From 56b573476e2ea63a509ab2f8ec0683397ae7c85e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 8 Aug 2007 10:42:16 +0000
Subject: - diskdrake:   o do not show partition types which have no associated
 filesystem     for LVM LV (#32326)

nb: we still would need to have pt_type per partition_table types
---
 perl-install/fs/type.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'perl-install/fs')

diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm
index cce7cdf23..79a89e819 100644
--- a/perl-install/fs/type.pm
+++ b/perl-install/fs/type.pm
@@ -179,10 +179,16 @@ if_(arch() !~ /ppc/,
 
 
 sub type_names { 
-    my ($expert) = @_;
+    my ($expert, $o_hd) = @_;
     my @l = @{$type_names{important}};
     push @l, @{$type_names{less_important}}, sort @{$type_names{other}} if $expert;
-    @l;
+    if ($o_hd && !$o_hd->use_pt_type) {
+	warn "$_ => $type_name2fs_type{$_}\n" foreach @l;
+	@l = grep { $type_name2fs_type{$_} } @l;
+	uniq_ { $type_name2fs_type{$_[0]} } @l;
+    } else {
+	@l;
+    }
 }
 
 sub type_name2subpart {
-- 
cgit v1.2.1