From 690763094af9e55e170d90dc0a95880e4f43fd80 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 9 Dec 2000 12:25:44 +0000 Subject: (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 --- perl-install/interactive_newt.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'perl-install') 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; -- cgit v1.2.1