From 73dbf7388acb7f0c2cf4d90b8c9797a1fac679fc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 11 Aug 2002 17:04:27 +0000
Subject: rename LVMname to VG_name

---
 perl-install/diskdrake/hd_gtk.pm      |  2 +-
 perl-install/diskdrake/interactive.pm | 14 +++++++-------
 perl-install/partition_table.pm       |  2 +-
 3 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index ea6a47724..d437799c5 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -362,7 +362,7 @@ sub createOrChangeType {
 ################################################################################
 sub lvm2kind {
     my ($lvm) = @_;
-    { type => 'lvm', name => $lvm->{LVMname}, val => $lvm };
+    { type => 'lvm', name => $lvm->{VG_name}, val => $lvm };
 }
 
 ################################################################################
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 37296997b..92d0db001 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -25,7 +25,7 @@ struct part {
   int size              # in sectors
   int type              # 0x82, 0x83, 0x6 ...
   string device         # 'hda5', 'sdc1' ...
-  string rootDevice     # 'sda', 'hdc' ...
+  string rootDevice     # 'sda', 'hdc' ... (can also be a VG_name)
   string real_mntpoint  # directly on real /, '/tmp/hdimage' ...
   string mntpoint       # '/', '/usr' ...
   string options        # 'defaults', 'noauto'
@@ -42,7 +42,7 @@ struct part {
     # !isFormatted && !notFormatted means we don't know which state we're in
 
   int raid          # for partitions of type isRawRAID and which isPartOfRAID, the raid device number
-  string lvm        # partition used as a PV for the VG with {lvm} as LVMname  #-#
+  string lvm        # partition used as a PV for the VG with {lvm} as VG_name  #-#
   loopback loopback[]   # loopback living on this partition
 
   # internal
@@ -125,7 +125,7 @@ struct hd {
 
 struct hd_lvm inherits hd {
   int PE_size           # block size (granularity, similar to cylinder size on x86)
-  string LVMname        # VG name
+  string VG_name        # VG name
 
   part_lvm disks[]
 
@@ -741,18 +741,18 @@ sub Add2LVM {
     write_partitions($in, $_) or return foreach isRAID($part) ? @{$all_hds->{hds}} : $hd;
 
     my $lvm = $in->ask_from_listf_('', _("Choose an existing LVM to add to"),
-				  sub { ref $_[0] ? $_[0]{LVMname} : $_[0] },
+				  sub { ref $_[0] ? $_[0]{VG_name} : $_[0] },
 				  [ @$lvms, __("new") ]) or return;
     if (!ref $lvm) {
 	# create new lvm
 	my $name = $in->ask_from_entry('', _("LVM name?")) or return;
 	$name =~ s/\W/_/g;
 	$name = substr($name, 0, 63); # max length must be < NAME_LEN / 2  where NAME_LEN is 128
-	$lvm = bless { disks => [], LVMname => $name }, 'lvm';
+	$lvm = bless { disks => [], VG_name => $name }, 'lvm';
 	push @$lvms, $lvm;
     }
     raid::make($all_hds->{raids}, $part) if isRAID($part);
-    $part->{lvm} = $lvm->{LVMname};
+    $part->{lvm} = $lvm->{VG_name};
     push @{$lvm->{disks}}, $part;
     delete $part->{mntpoint};
 
@@ -773,7 +773,7 @@ sub RemoveFromLVM {
     my ($in, $hd, $part, $all_hds) = @_;
     my $lvms = $all_hds->{lvms};
     isPartOfLVM($part) or die;
-    my ($lvm) = grep { $_->{LVMname} eq $part->{lvm} } @$lvms;
+    my ($lvm) = grep { $_->{VG_name} eq $part->{lvm} } @$lvms;
     lvm::vg_destroy($lvm);
     @$lvms = grep { $_ != $lvm } @$lvms;
 }
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index fd8d64370..7efc3a45d 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -253,7 +253,7 @@ sub isPartOfLVM { defined $_[0]{lvm} }
 sub isPartOfRAID { defined $_[0]{raid} }
 sub isPartOfLoopback { defined $_[0]{loopback} }
 sub isRAID { $_[0]{device} =~ /^md/ }
-sub isLVM { $_[0]{LVMname} }
+sub isLVM { $_[0]{VG_name} }
 sub isLoopback { defined $_[0]{loopback_file} }
 sub isMounted { $_[0]{isMounted} }
 sub isBusy { isMounted($_[0]) || isPartOfRAID($_[0]) || isPartOfLVM($_[0]) || isPartOfLoopback($_[0]) }
-- 
cgit v1.2.1