diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-12-09 12:25:44 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-12-09 12:25:44 +0000 |
| commit | 690763094af9e55e170d90dc0a95880e4f43fd80 (patch) | |
| tree | 3e8d11c298fc8d3c655e07d94e43335fe12cf315 /perl-install | |
| parent | ed64b372f528f719350b0d576fb02f7464badeae (diff) | |
| download | drakx-backup-do-not-use-690763094af9e55e170d90dc0a95880e4f43fd80.tar drakx-backup-do-not-use-690763094af9e55e170d90dc0a95880e4f43fd80.tar.gz drakx-backup-do-not-use-690763094af9e55e170d90dc0a95880e4f43fd80.tar.bz2 drakx-backup-do-not-use-690763094af9e55e170d90dc0a95880e4f43fd80.tar.xz drakx-backup-do-not-use-690763094af9e55e170d90dc0a95880e4f43fd80.zip | |
(ask_from_entries_refW): reset all hidden entries to null in case of error
on hidden entry cuz newt doesn't display null entries, disturbing
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive_newt.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm index 4c4c0e65e..e6c25c33c 100644 --- a/perl-install/interactive_newt.pm +++ b/perl-install/interactive_newt.pm @@ -213,6 +213,12 @@ sub ask_from_entries_refW { if ($$r != $$cancel && $hcallback{complete}) { my ($error, $focus) = $hcallback{complete}->(); + + if ($val->[$focus]{hidden}) { + #-reset all hidden to null, newt doesn't display null entries, disturbing + $_->{hidden} and ${$_->{val}} = '' foreach @$val; + } + #-update all the value &$_ foreach @updates_inv; goto run if $error; |