From 383231ef51aea1d4674aabe14768c4106461e6c4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 31 Mar 2005 13:54:39 +0000 Subject: useSupermount is no more a boolean, don't let the "More" dialog box set it to 1 when it is magicdev --- perl-install/diskdrake/interactive.pm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index c974444d2..7e8705ff6 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -353,6 +353,12 @@ sub Auto_allocate { sub More { my ($in, $hd) = @_; + my %automounting = ( + 0 => N("No supermount"), + 1 => N("Supermount"), + magicdev => N("Supermount except for CDROM drives"), + ); + my $r; $in->ask_from('', '', [ @@ -361,8 +367,10 @@ sub More { { val => N("Rescue partition table"), clicked_may_quit => sub { Rescuept($in, $hd); 1 } }, if_($::isInstall, { val => N("Reload partition table"), clicked_may_quit => sub { $r = 'force_reload'; 1 } }), - if_($::isInstall, - { text => N("Removable media automounting"), val => \$::o->{useSupermount}, type => 'bool' }, + if_($::isInstall || 1, + { label => N("Removable media automounting"), val => \$::o->{useSupermount}, + format => sub { $automounting{$_[0]} }, + list => [ 0, 'magicdev', 1 ], advanced => 1 }, ), ], ) && $r; -- cgit v1.2.1