From 1584118af5f96e76d6e4b756c24a490c90039242 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 26 Feb 2003 15:28:11 +0000
Subject: fixed unablities to launch Internet configuration dialog.

---
 perl-install/standalone/drakconnect | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone/drakconnect')

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index de5c98a6a..9a3065089 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -50,7 +50,7 @@ my @conx_type = ('modem', 'isdn_internal', 'isdn_external', 'adsl', 'cable', 'la
 
 my $in = 'interactive'->vnew('su', 'network');
 !$::isEmbedded && $in->isa('interactive::gtk') and $::isWizard = 1;
-$::isWizard = 0;
+#$::isWizard = 0;
 $::Wizard_pix_up = "wiz_drakconnect.png";
 $::Wizard_title = "Network & Internet Configuration";
 
@@ -62,7 +62,7 @@ MDK::Common::Globals::init(
 	      connect_prog => "/etc/sysconfig/network-scripts/net_cnx_pg"
 	     );
 
-#$::isEmbedded && ref($in) =~ /gtk/ or goto dd;
+$::isEmbedded && ref($in) =~ /gtk/ or goto dd;
 require ugtk2;
 import ugtk2 qw(:helpers :wrappers :create);
 my $expert_mode = 0;
@@ -70,6 +70,8 @@ network::netconnect::read_net_conf('', $netcnx, $netc);
 modules::load_category('net');
 my @all_cards = network::ethernet::conf_network_card_backend($netc, $intf);
 network::netconnect::load_conf($netcnx, $netc, $intf);
+require Data::Dumper;
+print STDERR Data::Dumper->Dump([ $intf ]);
 network::network::probe_netcnx_type('', $netc, $intf, $netcnx);
 
 my $window1 = ugtk2->new('drakconnect');
@@ -519,7 +521,7 @@ Configure them first by clicking on 'Configure'")),1,1,0);
 
 
 sub configure_net {
-    my (undef, $_prefix, $netcnx, $netc, $_intf) = @_;
+    my ($_prefix, $netcnx, $netc, $_intf) = @_;
     if (!$netcnx->{type}) {
 	my $dialog = new_dialog();
 	$dialog->vbox->pack_start(new Gtk2::Label(N("You don't have an Internet connection.
-- 
cgit v1.2.1