summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-06-04 11:13:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-06-04 11:13:34 +0000
commitc9a35f48ca4ae3f503a2976b2e399eb814407f8f (patch)
tree84e4df966deae6a972b6f7cad29495e6766486c2 /perl-install/diskdrake
parent37d4047e44806051bf7721869791fce9917d04ee (diff)
downloaddrakx-backup-do-not-use-c9a35f48ca4ae3f503a2976b2e399eb814407f8f.tar
drakx-backup-do-not-use-c9a35f48ca4ae3f503a2976b2e399eb814407f8f.tar.gz
drakx-backup-do-not-use-c9a35f48ca4ae3f503a2976b2e399eb814407f8f.tar.bz2
drakx-backup-do-not-use-c9a35f48ca4ae3f503a2976b2e399eb814407f8f.tar.xz
drakx-backup-do-not-use-c9a35f48ca4ae3f503a2976b2e399eb814407f8f.zip
allow choosing lv name (thanks to Brian Murrell)
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 425ba1bb4..b279d96d2 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -81,6 +81,7 @@ struct part_loopback inherits part {
struct part_lvm inherits part {
# invalid: active, start, device_windobe, CHS
+ string lv_name
}
@@ -464,6 +465,9 @@ sub Create {
if_($::expert && $hd->hasExtended,
{ label => N("Preference: "), val => \$primaryOrExtended, list => [ '', "Extended", "Primary", if_($::expert, "Extended_0x85") ] },
),
+ if_($::expert && isLVM($hd),
+ { label => _("Logical volume name "), val => \$part->{lv_name}, list => [ qw(root swap usr home var), '' ], sort => 0, not_edit => 0 },
+ ),
], changed => sub {
if ($part->{start} + ($mb_size << 11) > $max) {
if ($_[0] == 0) {