From e9c960eb3e47e4921f9c8daa8a3b22adfad35d78 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 23 Feb 2004 10:17:06 +0000 Subject: fix ability to set ip parameters broken by localizing bootproto --- perl-install/standalone/drakconnect | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 1e88c63b6..c73a56aa3 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -295,8 +295,11 @@ sub build_notebook { if_($is_ethernet, 0, $gui->{intf}{BOOTPROTO} = gtksignal_connect(Gtk2::OptionMenu->new, changed => sub { + my $proto = $gui->{intf}{BOOTPROTO}; + my $protocol = $intf->{BOOTPROTO} = { reverse %{$proto->{protocols}} }->{$proto->get_text}; + foreach ($gui->{intf}{IPADDR}, $gui->{intf}{NETMASK}, $gui->{netc}{GATEWAY}) { - $_->set_sensitive($gui->{intf}{BOOTPROTO}->get_text eq "static" ? 1 : 0) + $_->set_sensitive($protocol eq "static" ? 1 : 0) }; $apply->() }, ), ), -- cgit v1.2.1