summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-19 05:00:06 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-01-02 14:57:51 +0100
commit3292faca5e819f87e054580ef0e707af2062f8fd (patch)
tree162c1b2a2e9e23c804c24934878f2988a2901e8a /perl-install/diskdrake
parente65b0f43c538bfc9097d92669c4706cab8828692 (diff)
downloaddrakx-3292faca5e819f87e054580ef0e707af2062f8fd.tar
drakx-3292faca5e819f87e054580ef0e707af2062f8fd.tar.gz
drakx-3292faca5e819f87e054580ef0e707af2062f8fd.tar.bz2
drakx-3292faca5e819f87e054580ef0e707af2062f8fd.tar.xz
drakx-3292faca5e819f87e054580ef0e707af2062f8fd.zip
auto fill LV name from mntpnt (mga#5407)
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r--perl-install/diskdrake/interactive.pm4
1 files changed, 4 insertions, 0 deletions
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,