From fe6865eb75a2fadd74c8b3f52c792878c79a753a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 18 Nov 2005 11:43:01 +0000 Subject: add button "Label" (in expert for now) to set the "volume label" (and so get LABEL= in fstab and lilo.conf) --- perl-install/diskdrake/interactive.pm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'perl-install/diskdrake') 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) = @_; -- cgit v1.2.1