From acbcf359e5e63583f01c06ecbc4346664c443aa0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 5 Dec 1999 23:13:43 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

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

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 51ea451b6..7afb02d4b 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -16,11 +16,8 @@ use Gtk;
 use Gtk::XmHTML;
 use devices;
 use fsedit;
-use keyboard;
-use network;
 use modules;
 use install_steps;
-use run_program;
 use install_steps_interactive;
 use interactive_gtk;
 use install_any;
@@ -264,9 +261,9 @@ sub doPartitionDisks($$) {
 sub choosePackages {
     my ($o, $packages, $compss, $compssUsers, $first_time) = @_;
 
-    if ($::beginner) {	
+    if ($::beginner) {
 	require pkgs;
-	pkgs::setSelectedFromCompssList_($o->{compssListLevels}, $o->{packages}, install_any::getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{lang}, $o->{isUpgrade});
+	pkgs::setSelectedFromCompssList_($o->{compssListLevels}, $o->{packages}, install_any::getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{isUpgrade});
     } else {
 	pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, 90, $o->{installClass}) unless $::expert || $o->{isUpgrade};
 	install_steps_interactive::choosePackages(@_);
@@ -300,7 +297,7 @@ sub chooseSizeToInstall {
     ($o->{packages_}{ind}, $o->{packages_}{select_level}) = 
       pkgs::setSelectedFromCompssList_($o->{compssListLevels}, $o->{packages}, 
 				       pkgs::invCorrectSize($spin->get_value_as_int) * sqr(1024), 
-				       $o->{installClass}, $o->{lang}, $o->{isUpgrade});
+				       $o->{installClass}, $o->{isUpgrade});
 }
 sub choosePackagesTree {
     my ($o, $packages, $compss, $compssUsers) = @_;
-- 
cgit v1.2.1