diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 321dd1110..0301722bf 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -582,7 +582,16 @@ sub build_notebook { ); } - $gui->{intf}{$_}->set_text($intf->{$_}) foreach keys %{$gui->{intf}}; + foreach (keys %{$gui->{intf}}) { + next if ref($gui->{intf}{$_}) ne 'Gtk2::ComboBox'; + # skip unset fields: + next if !$intf->{$_}; + # special case b/c of translation: + next if member($_, qw(BOOTPROTO )); + warn qq(processing "$_"\n); + $gui->{intf}{$_}->set_text($intf->{$_}); + } + $gui->{notebook} = Gtk2::Notebook->new; populate_notebook($gui->{notebook}, $gui); } |