diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-11-18 11:43:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-11-18 11:43:01 +0000 |
| commit | fe6865eb75a2fadd74c8b3f52c792878c79a753a (patch) | |
| tree | 10a566103d94d25535b80dab013652c65d4cf152 /perl-install/diskdrake | |
| parent | 4639c823f04b03e56cb5c3f5f13c8ce0d23253f3 (diff) | |
| download | drakx-backup-do-not-use-fe6865eb75a2fadd74c8b3f52c792878c79a753a.tar drakx-backup-do-not-use-fe6865eb75a2fadd74c8b3f52c792878c79a753a.tar.gz drakx-backup-do-not-use-fe6865eb75a2fadd74c8b3f52c792878c79a753a.tar.bz2 drakx-backup-do-not-use-fe6865eb75a2fadd74c8b3f52c792878c79a753a.tar.xz drakx-backup-do-not-use-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')
| -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) = @_; |