diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 8 |
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) = @_; |