From 3292faca5e819f87e054580ef0e707af2062f8fd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 19 May 2015 05:00:06 -0400
Subject: auto fill LV name from mntpnt (mga#5407)

---
 perl-install/diskdrake/interactive.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 10b041053..f44c896d0 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -499,6 +499,10 @@ sub Create {
          { label => N("Filesystem type: "), val => \$type_name, list => [ fs::type::type_names($::expert, $hd) ],
 	   sort => 0, if_($::expert, gtk => { wrap_width => 2 }, do_not_ellipsize => 1) },
          { label => N("Mount point: "), val => \$part->{mntpoint}, list => [ fsedit::suggestions_mntpoint($all_hds), '' ],
+           if_(isLVM($hd), changed => sub {
+		   undef $part->{lv_name};
+		   lvm::suggest_lv_name($hd, $part);
+	   }), type => 'combo', not_edit => 0,
            disabled => sub { my $p = fs::type::type_name2subpart($type_name); isSwap($p) || isNonMountable($p) }, type => 'combo', not_edit => 0,
          },
            if_($::expert && $hd->hasExtended,
-- 
cgit v1.2.1