summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mandriva.org>2010-04-22 14:26:49 +0000
committerPascal Terjan <pterjan@mandriva.org>2010-04-22 14:26:49 +0000
commit3bc4a1400cb57eaa50dcf2c7625d08492c72f269 (patch)
tree5393341e48fe72f0a9d0b586dcf35a995ff1b374 /perl-install/diskdrake
parent6d5bc0d454dfaae972f4a7a31b02511b50da7e58 (diff)
downloaddrakx-backup-do-not-use-3bc4a1400cb57eaa50dcf2c7625d08492c72f269.tar
drakx-backup-do-not-use-3bc4a1400cb57eaa50dcf2c7625d08492c72f269.tar.gz
drakx-backup-do-not-use-3bc4a1400cb57eaa50dcf2c7625d08492c72f269.tar.bz2
drakx-backup-do-not-use-3bc4a1400cb57eaa50dcf2c7625d08492c72f269.tar.xz
drakx-backup-do-not-use-3bc4a1400cb57eaa50dcf2c7625d08492c72f269.zip
display lock icon on encrypted partitions
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index d4029f326..bbe6f8a75 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -315,6 +315,10 @@ sub create_buttons4partitions {
};
foreach my $entry (@parts) {
+ if(fs::type::isRawLUKS($entry)) {
+ my $p = find { $entry->{dm_name} eq $_->{dmcrypt_name} } @{$all_hds->{dmcrypts}};
+ $entry = $p if $p;
+ }
my $info = $entry->{mntpoint} || $entry->{device_LABEL};
$info .= "\n" . ($entry->{size} ? formatXiB($entry->{size}, 512) : N("Unknown")) if $info;
my $w = Gtk2::ToggleButton->new_with_label($info) or internal_error('new_with_label');
@@ -341,9 +345,8 @@ sub create_buttons4partitions {
last;
}
});
- if(fs::type::isRawLUKS($entry)) {
- my $p = find { $entry->{dm_name} eq $_->{dmcrypt_name} } @{$all_hds->{dmcrypts}};
- $entry = $p;
+ if($entry->{dmcrypt_name}) {
+ $w->set_image(gtknew("Image", file => "security-strong"));
}
my @colorized_fs_types = qw(ext3 ext4 xfs swap vfat ntfs ntfs-3g);
$w->set_name("PART_" . (isEmpty($entry) ? 'empty' :