From 1a996ceb744f490f0183099640e7a1eb3ad039c1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Aug 2000 01:10:13 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 494c61d34..b4b4a122e 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -17,13 +17,13 @@ use install_steps;
 use install_interactive;
 use install_any;
 use detect_devices;
+use netconnect;
 use run_program;
 use commands;
 use devices;
 use fsedit;
 use network;
 use raid;
-use netconnect;
 use mouse;
 use modules;
 use lang;
@@ -517,7 +517,7 @@ such as ``mybox.mylab.myco.com''."),
     #- (dam's)
     if (!$::beginner && $o->ask_yesorno([ _("Modem Configuration") ],
 			_("Do you want to configure a ISDN connection for your system?"), 0)) {
-        Netconnect::detect_isdn($o->{prefix}, $o->{isdn}, $o, bool($o->{pcmcia}));
+#        netconnect::detect_isdn($o->{prefix}, $o->{isdn}, $o, bool($o->{pcmcia}));
     }
 }
 
@@ -657,8 +657,7 @@ USA")) || return;
     my %h; $h{$_} = 1 foreach @{$u->{packages} || []};
     $o->ask_many_from_list_ref('', _("Please choose the packages you want to install."), 
 			       \@packages, [ map { \$h{$_} } @packages ]) or return;
-    $u->{packages} = [ grep { $h{$_} } @packages ];
-    install_steps::installCrypto($o);
+    $o->pkg_install(@{$u->{packages} = [ grep { $h{$_} } @packages ]});
 
     #- stop interface using ppp only.
     $o->downNetwork('pppOnly');
-- 
cgit v1.2.1