summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/any.pm3
-rw-r--r--perl-install/bootloader.pm19
2 files changed, 0 insertions, 22 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index a4ebc18a6..5d1388dc8 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -189,7 +189,6 @@ sub setupBootloader__general {
my ($in, $b, $all_hds, $fstab, $security) = @_;
my @method_choices = bootloader::method_choices($fstab);
- my $profiles = bootloader::has_profiles($b);
my $prev_force_acpi = my $force_acpi = bootloader::get_append($b, 'acpi') !~ /off|ht/;
my $prev_force_noapic = my $force_noapic = bootloader::get_append($b, 'noapic');
my $prev_force_nolapic = my $force_nolapic = bootloader::get_append($b, 'nolapic');
@@ -230,7 +229,6 @@ sub setupBootloader__general {
{ text => N("Clean /tmp at each boot"), val => \$clean_tmp, type => 'bool', advanced => 1 },
{ label => N("Precise RAM size if needed (found %d MB)", availableRamMB()), val => \$memsize, advanced => 1 },
if_(detect_devices::isLaptop(),
- { text => N("Enable multiple profiles"), val => \$profiles, type => 'bool', advanced => 1 },
),
]) or return 0;
} else {
@@ -256,7 +254,6 @@ sub setupBootloader__general {
$in->do_pkgs->ensure_binary_is_installed('grub', "grub", 1) or return 0;
}
- bootloader::set_profiles($b, $profiles);
bootloader::set_append($b, "mem", $memsize || 0);
if ($prev_force_acpi != $force_acpi) {
bootloader::set_append($b, acpi => ($force_acpi ? '' : 'ht'));
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index bc0617a86..9a84dece1 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -813,25 +813,6 @@ sub create_link_source() {
}
}
-sub has_profiles { my ($b) = @_; to_bool(get_label("office", $b)) }
-sub set_profiles {
- my ($b, $want_profiles) = @_;
-
- my $office = get_label("office", $b);
- if ($want_profiles xor $office) {
- my $e = get_label("linux", $b);
- if ($want_profiles) {
- push @{$b->{entries}}, { %$e, label => "office", append => "$e->{append} prof=Office" };
- $e->{append} .= " prof=Home";
- } else {
- # remove profiles
- $e->{append} =~ s/\s*prof=\w+//;
- @{$b->{entries}} = grep { $_ != $office } @{$b->{entries}};
- }
- }
-
-}
-
sub get_of_dev {
my ($unix_dev) = @_;