diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-09-15 10:55:53 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-09-15 10:55:53 +0000 |
| commit | 4d906c772f0eb1c2d5f7eb6f18516ee35f756a5a (patch) | |
| tree | bf5b8370b6ebea67ea10abb4eedd8a25d868a5dd /perl-install/any.pm | |
| parent | a3972dc7082c1e4fad7692d631783cc33a3e3db1 (diff) | |
| download | drakx-4d906c772f0eb1c2d5f7eb6f18516ee35f756a5a.tar drakx-4d906c772f0eb1c2d5f7eb6f18516ee35f756a5a.tar.gz drakx-4d906c772f0eb1c2d5f7eb6f18516ee35f756a5a.tar.bz2 drakx-4d906c772f0eb1c2d5f7eb6f18516ee35f756a5a.tar.xz drakx-4d906c772f0eb1c2d5f7eb6f18516ee35f756a5a.zip | |
when "Back" is pressed, restore the list of entries in bootloader (bug #5680)
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index f4f9cb485..f5dc1602a 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -431,7 +431,8 @@ if_(arch() !~ /sparc|ppc|ia64/, 1; }; - $in->ask_from__add_modify_remove('', + my @prev_entries = @{$b->{entries}}; + if ($in->ask_from__add_modify_remove('', N("Here are the entries on your boot menu so far. You can create additional entries or change the existing ones."), [ { format => sub { @@ -440,7 +441,12 @@ You can create additional entries or change the existing ones."), [ { "$e->{label} ($e->{kernel_or_dev})" . ($b->{default} eq $e->{label} && " *") : translate($e); }, list => $b->{entries}, - } ], Add => $Add, Modify => $Modify, Remove => $Remove); + } ], Add => $Add, Modify => $Modify, Remove => $Remove)) { + 1; + } else { + @{$b->{entries}} = @prev_entries; + ''; + } } my @etc_pass_fields = qw(name pw uid gid realname home shell); |