- bootloader::remove_append_dict() is not useful, bootloader::set_append() can do the same

- don't modify anything before "Ok" is clicked
- set_append with $netprofile eq '' will remove parameter PROFILE=xxx, which is what we want

1 files changed, 1 insertions, 2 deletions

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 5d1388dc8..3eef8f478 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -286,7 +286,6 @@ sub setupBootloader__entries {
 	my $default = my $old_default = $e->{label} eq $b->{default};
 	my $vga = Xconfig::resolution_and_depth::from_bios($e->{vga});
 	my $netprofile = bootloader::get_append($b, 'PROFILE');
-	bootloader::remove_append_dict($b, 'PROFILE'); #- hide PROFILE option in 'append' text entry
 
 	my @l;
 	if ($e->{type} eq "image") { 
@@ -337,7 +336,7 @@ sub setupBootloader__entries {
 
 	$b->{default} = $old_default || $default ? $default && $e->{label} : $b->{default};
 	$e->{vga} = ref($vga) ? $vga->{bios} : $vga;
-	bootloader::set_append($b, 'PROFILE', $netprofile) if $netprofile;
+	bootloader::set_append($b, PROFILE => $netprofile);
 	bootloader::configure_entry($e); #- hack to make sure initrd file are built.
 	1;
     };