useSupermount is no more a boolean, don't let the "More" dialog box set it to 1 when it is magicdev

1 files changed, 10 insertions, 2 deletions

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;