From c9a35f48ca4ae3f503a2976b2e399eb814407f8f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 4 Jun 2003 11:13:34 +0000
Subject: allow choosing lv name (thanks to Brian Murrell)

---
 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 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) {
-- 
cgit v1.2.1