From f2793bd866028a0692e721e3c1442076c46a3379 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 13 Aug 2004 08:02:30 +0000
Subject: remove old linuxconf profile code

---
 perl-install/bootloader.pm | 19 -------------------
 1 file changed, 19 deletions(-)

(limited to 'perl-install/bootloader.pm')

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) = @_;
 
-- 
cgit v1.2.1