summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-25 13:13:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-25 13:13:34 +0000
commit77594868b1cb9b5c6cf7656cdcd5da08a5b2d457 (patch)
tree76e7cd6a07c50e8f84ea7e279a201f6d6c1fa3fa /perl-install/diskdrake/interactive.pm
parent00197645126e48aa71d8e2d0508bd25d627f8b02 (diff)
downloaddrakx-77594868b1cb9b5c6cf7656cdcd5da08a5b2d457.tar
drakx-77594868b1cb9b5c6cf7656cdcd5da08a5b2d457.tar.gz
drakx-77594868b1cb9b5c6cf7656cdcd5da08a5b2d457.tar.bz2
drakx-77594868b1cb9b5c6cf7656cdcd5da08a5b2d457.tar.xz
drakx-77594868b1cb9b5c6cf7656cdcd5da08a5b2d457.zip
moving partitions never really worked and is disabled since years
Diffstat (limited to 'perl-install/diskdrake/interactive.pm')
-rw-r--r--perl-install/diskdrake/interactive.pm12
1 files changed, 0 insertions, 12 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 9b28808e8..20ed88f87 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -426,7 +426,6 @@ sub part_possible_actions {
N_("Type") => '!isBusy && $::expert && (!readonly || $part->{pt_type} == 0x83)',
N_("Options") => '$::expert',
N_("Resize") => '!isBusy && !readonly && !isSpecial || isLVM($hd) && isMounted && $part->{fs_type} eq "xfs"',
- N_("Move") => '!isBusy && !readonly && !isSpecial && $::expert && 0', # disable for the moment
N_("Format") => '!isBusy && !readonly && ($::expert || $::isStandalone)',
N_("Mount") => '!isBusy && (hasMntpoint || isSwap) && maybeFormatted && ($::expert || $::isStandalone)',
N_("Add to RAID") => '!isBusy && isRawRAID && (!isSpecial || isRAID)',
@@ -787,17 +786,6 @@ filesystem checks will be run on your next boot into Windows(TM)"));
$adjust->(0) if $size < $oldsize;
}
-sub Move {
- my ($in, $hd, $part, $all_hds) = @_;
- my $hd2 = $in->ask_from_listf(N("Move"),
- N("Which disk do you want to move it to?"), \&partition_table::description, @{$all_hds->{hds}}) or return;
- my $start2 = $in->ask_from_entry(N("Sector"),
- N("Which sector do you want to move it to?"));
- defined $start2 or return;
-
- my $_w = $in->wait_message(N("Moving"), N("Moving partition..."));
- fsedit::move($hd, $part, $hd2, $start2);
-}
sub Format {
my ($in, $hd, $part, $all_hds) = @_;
format_($in, $hd, $part, $all_hds);