[2784] (Add2LVM) better default name for new VG (vg-mga, vg-mga1, ...

[root-odJJhXpcy38dnm+]

Revision: 2784
Author: tv
Date: 2012-01-24 21:52:06 +0100 (Tue, 24 Jan 2012)
Log Message:
-----------
(Add2LVM) better default name for new VG (vg-mga, vg-mga1, ...
instead of vg-0, vg-1, ...)

Modified Paths:
--------------
drakx/trunk/perl-install/NEWS
drakx/trunk/perl-install/diskdrake/interactive.pm
drakx/trunk/perl-install/install/NEWS

Modified: drakx/trunk/perl-install/NEWS
===================================================================
--- drakx/trunk/perl-install/NEWS 2012-01-24 20:52:03 UTC (rev 2783)
+++ drakx/trunk/perl-install/NEWS 2012-01-24 20:52:06 UTC (rev 2784)
@@ -1,3 +1,7 @@
+- diskdrake:
+ o better default name for new VG (vg-mga, vg-mga1, ...
+ instead of vg-0, vg-1, ...)
+
Version 13.77 - 23 January 2012

- add support for XZ modules

Modified: drakx/trunk/perl-install/diskdrake/interactive.pm
===================================================================
--- drakx/trunk/perl-install/diskdrake/interactive.pm 2012-01-24 20:52:03 UTC (rev 2783)
+++ drakx/trunk/perl-install/diskdrake/interactive.pm 2012-01-24 20:52:06 UTC (rev 2784)
@@ -987,12 +987,12 @@
require lvm;
if (!ref $lvm) {
# create new lvm
- my $n = 0;
- while (member("vg$n", @lvm_names)) {
+ my $n; my $str = "vg-mga";
+ while (member("$str$n", @lvm_names)) {
$n++;
}

- my $name = "vg$n";
+ my $name = "$str$n";
$in->ask_from_({ title => N("LVM name"),
messages => N("Enter a name for the new LVM volume group"),
focus_first => 1,

Modified: drakx/trunk/perl-install/install/NEWS
===================================================================
--- drakx/trunk/perl-install/install/NEWS 2012-01-24 20:52:03 UTC (rev 2783)
+++ drakx/trunk/perl-install/install/NEWS 2012-01-24 20:52:06 UTC (rev 2784)
@@ -1,5 +1,8 @@
- summary:
o list shorewall with iptables* in services
+- diskdrake:
+ o better default name for new VG (vg-mga, vg-mga1, ...
+ instead of vg-0, vg-1, ...)

Version 13.77 - 23 January 2012