diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-08-13 08:02:30 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-08-13 08:02:30 +0000 |
| commit | f2793bd866028a0692e721e3c1442076c46a3379 (patch) | |
| tree | 40613cc1c1951d33f84d6829bf4afc0c94333c2d /perl-install/bootloader.pm | |
| parent | 826d426d5ebe5b91815d81002f27021a3c2a966b (diff) | |
| download | drakx-backup-do-not-use-f2793bd866028a0692e721e3c1442076c46a3379.tar drakx-backup-do-not-use-f2793bd866028a0692e721e3c1442076c46a3379.tar.gz drakx-backup-do-not-use-f2793bd866028a0692e721e3c1442076c46a3379.tar.bz2 drakx-backup-do-not-use-f2793bd866028a0692e721e3c1442076c46a3379.tar.xz drakx-backup-do-not-use-f2793bd866028a0692e721e3c1442076c46a3379.zip | |
remove old linuxconf profile code
Diffstat (limited to 'perl-install/bootloader.pm')
| -rw-r--r-- | perl-install/bootloader.pm | 19 |
1 files changed, 0 insertions, 19 deletions
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) = @_; |