summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-11-18 11:43:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-11-18 11:43:01 +0000
commitfe6865eb75a2fadd74c8b3f52c792878c79a753a (patch)
tree10a566103d94d25535b80dab013652c65d4cf152 /perl-install/diskdrake/interactive.pm
parent4639c823f04b03e56cb5c3f5f13c8ce0d23253f3 (diff)
downloaddrakx-fe6865eb75a2fadd74c8b3f52c792878c79a753a.tar
drakx-fe6865eb75a2fadd74c8b3f52c792878c79a753a.tar.gz
drakx-fe6865eb75a2fadd74c8b3f52c792878c79a753a.tar.bz2
drakx-fe6865eb75a2fadd74c8b3f52c792878c79a753a.tar.xz
drakx-fe6865eb75a2fadd74c8b3f52c792878c79a753a.zip
add button "Label" (in expert for now) to set the "volume label" (and so get LABEL= in fstab and lilo.conf)
Diffstat (limited to 'perl-install/diskdrake/interactive.pm')
-rw-r--r--perl-install/diskdrake/interactive.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 8651fc44d..afcb4ba86 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -446,6 +446,7 @@ sub part_possible_actions {
N_("Mount point") => '$part->{real_mntpoint} || (!isBusy && !isSwap && !isNonMountable)',
N_("Type") => '!isBusy && $::expert && (!readonly || $part->{pt_type} == 0x83)',
N_("Options") => '!isNonMountable && $::expert',
+ N_("Label") => '!isNonMountable && $::expert',
N_("Resize") => '!isBusy && !readonly && !isSpecial || isLVM($hd) && LVM_resizable',
N_("Format") => '!isBusy && !readonly && ($::expert || $::isStandalone)',
N_("Mount") => '!isBusy && (hasMntpoint || isSwap) && maybeFormatted && ($::expert || $::isStandalone)',
@@ -643,6 +644,13 @@ sub Type {
}
}
+sub Label {
+ my ($in, $hd, $part) = @_;
+ $in->ask_from('', N("Which volume label?"),
+ [ { val => \$part->{device_LABEL} } ]) or return;
+ $part->{prefer_device_LABEL} = to_bool($part->{device_LABEL});
+}
+
sub Mount_point {
my ($in, $hd, $part, $all_hds) = @_;