diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-19 05:00:06 -0400 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-01-02 14:57:51 +0100 |
| commit | 3292faca5e819f87e054580ef0e707af2062f8fd (patch) | |
| tree | 162c1b2a2e9e23c804c24934878f2988a2901e8a | |
| parent | e65b0f43c538bfc9097d92669c4706cab8828692 (diff) | |
| download | drakx-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)
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 4 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 1 |
3 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 13a0176da..aff5089a3 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,5 +1,6 @@ - misc cleanups - diskdrake: + o auto fill LV name from mntpnt (mga#5407) o suggest "lv_foo" instead of just "foo" for LVname - drakboot: o skip swap in the list of partitions (mga#15767) 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, diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 1e645c2e2..885a38ce6 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,6 +1,7 @@ - bootloader: o skip swap in the list of partitions (mga#15767) - partitioning: + o auto fill LV name from mntpnt (mga#5407) o suggest "lv_foo" instead of just "foo" for LVname - fix a message (mga#51414) - misc cleanups |