diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2004-01-22 16:37:10 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2004-01-22 16:37:10 +0000 |
| commit | 2a811cc9cb1639ab34204cc002a18622ff5d3a89 (patch) | |
| tree | feed338a627f7623d4b555e30bdadc360588bbe1 /perl-install | |
| parent | a94c052ebe31ffb518b870d6bf63fb6538441196 (diff) | |
| download | drakx-2a811cc9cb1639ab34204cc002a18622ff5d3a89.tar drakx-2a811cc9cb1639ab34204cc002a18622ff5d3a89.tar.gz drakx-2a811cc9cb1639ab34204cc002a18622ff5d3a89.tar.bz2 drakx-2a811cc9cb1639ab34204cc002a18622ff5d3a89.tar.xz drakx-2a811cc9cb1639ab34204cc002a18622ff5d3a89.zip | |
- remove _radio suffix
- prevent undefined value to be get_texted
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index c7b06d2bd..d6822daa5 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -400,10 +400,10 @@ sub build_notebook { ), ), )); - $dialing_mode_radio[0]->signal_connect('toggled' => sub { $gui->{intf}{dialing_mode_radio} = 'auto'; $apply->() }); - $dialing_mode_radio[1]->signal_connect('toggled' => sub { $gui->{intf}{dialing_mode_radio} = 'static'; $apply->() }); - $speed_radio[0]->signal_connect('toggled' => sub { $gui->{intf}{speed_radio} = '64'; $apply->() }); - $speed_radio[1]->signal_connect('toggled' => sub { $gui->{intf}{speed_radio} = '128'; $apply->() }); + $dialing_mode_radio[0]->signal_connect('toggled' => sub { $gui->{intf}{dialing_mode} = 'auto'; $apply->() }); + $dialing_mode_radio[1]->signal_connect('toggled' => sub { $gui->{intf}{dialing_mode} = 'static'; $apply->() }); + $speed_radio[0]->signal_connect('toggled' => sub { $gui->{intf}{speed} = '64'; $apply->() }); + $speed_radio[1]->signal_connect('toggled' => sub { $gui->{intf}{speed} = '128'; $apply->() }); $gui->{intf_bool}{ONBOOT}->set_active($intf->{ONBOOT} eq 'yes' ? 1 : 0); $gui->{intf_bool}{MII_NOT_SUPPORTED}->set_active($intf->{MII_NOT_SUPPORTED} eq 'no' ? 1 : 0); $gui->{intf_bool}{HWADDR}->set_active($intf->{HWADDR}); @@ -507,7 +507,7 @@ sub save_notebook { my ($netc, $intf, $gui) = @_; $netc->{$_} = $gui->{netc}{$_}->get_text foreach keys %{$gui->{netc}}; - $intf->{$_} = $gui->{intf}{$_}->get_text foreach keys %{$gui->{intf}}; + $gui->{$_} and $intf->{$_} = $gui->{intf}{$_}->get_text foreach keys %{$gui->{intf}}; $intf->{$_} = bool2yesno($gui->{intf_bool}{$_}->get_active) foreach keys %{$gui->{intf_bool}}; $gui->{intf_bool}{MII_NOT_SUPPORTED} and $intf->{MII_NOT_SUPPORTED} = bool2yesno(!$gui->{intf_bool}{MII_NOT_SUPPORTED}->get_active); $gui->{intf_bool}{HWADDR} and (bool2yesno($gui->{intf_bool}{HWADDR}->get_active) eq 'yes' ? ($intf->{HWADDR} = 'yes') : delete $intf->{HWADDR}); |