From 4f9917cec31b1dc2b4e070a0ef369b668f13aaa6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 6 Mar 2003 20:46:08 +0000
Subject: basic encrypt_key handling in upgrade (don't mistype!)

---
 perl-install/install_steps_interactive.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index d8e6b9724..095329b74 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -153,6 +153,11 @@ sub selectInstallClass {
 	    my $part = $p->{part};
 	    log::l("choosing to upgrade partition $part->{device}");
 	    install_any::use_root_part($o->{all_hds}, $part, $o->{prefix});
+	    foreach (grep { $_->{mntpoint} } @{$o->{fstab}}) {
+		my ($options, $unknown) = fs::mount_options_unpack($_);
+		$options->{encrypted} or next;
+		$_->{encrypt_key} = $o->ask_from_entry('', N("Encryption key for %s", $_->{mntpoint}));
+	    }
 	    $o->{isUpgrade} = 1;
 	}
     }
-- 
cgit v1.2.1