summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-12 23:03:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-12 23:03:31 +0000
commit9863c2395d4a4f3112f49601cb1999c8b5664cde (patch)
treec9682c0db286b07ae110bcc51d1cd584f732097a /perl-install
parenta833d02bc9adda311081e127b7a2bb125dbdc882 (diff)
downloaddrakx-9863c2395d4a4f3112f49601cb1999c8b5664cde.tar
drakx-9863c2395d4a4f3112f49601cb1999c8b5664cde.tar.gz
drakx-9863c2395d4a4f3112f49601cb1999c8b5664cde.tar.bz2
drakx-9863c2395d4a4f3112f49601cb1999c8b5664cde.tar.xz
drakx-9863c2395d4a4f3112f49601cb1999c8b5664cde.zip
remove some $::expert
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm15
1 files changed, 5 insertions, 10 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2652ea99e..070ea04bc 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -140,7 +140,7 @@ sub selectInstallClass {
sub selectMouse {
my ($o, $force) = @_;
- $force ||= $o->{mouse}{unsafe} || $::expert;
+ $force ||= $o->{mouse}{unsafe};
my $prev = $o->{mouse}{type} . '|' . $o->{mouse}{name};
$o->{mouse} = mouse::fullname2mouse(
@@ -263,8 +263,6 @@ sub doPartitionDisks {
\&partition_table::description, \@l) or die "setstep exitInstall\n";
}
install_any::use_root_part($o->{all_hds}, $p, $o->{prefix});
- } elsif ($::expert && $o->isa('interactive::gtk')) {
- install_interactive::partition_with_diskdrake($o, $o->{all_hds});
} else {
install_interactive::partitionWizard($o);
}
@@ -362,14 +360,14 @@ sub choosePackages {
$o->chooseCD($packages) if $o->{method} eq 'cdrom' && !$::oem;
my $availableC = install_steps::choosePackages(@_);
- my $individual = $::expert;
+ my $individual;
require pkgs;
my $min_size = pkgs::selectedSize($packages);
$min_size < $availableC or die N("Your system does not have enough space left for installation or upgrade (%d > %d)", $min_size, $availableC);
- my $min_mark = $::expert ? 3 : 4;
+ my $min_mark = 4;
my $b = pkgs::saveSelected($packages);
my $_level = pkgs::setSelectedFromCompssList($packages, { map { $_ => 1 } map { @{$compssUsers->{$_}{flags}} } @{$o->{compssUsersSorted}} }, $min_mark, 0);
@@ -516,10 +514,8 @@ sub chooseGroups {
Please choose the minimal installation you want:"),
[
{ val => \$o->{compssUsersChoice}{X}, type => 'bool', text => N("With X"), disabled => sub { $minimal } },
- if_($::expert || $minimal,
{ val => \$docs, type => 'bool', text => N("With basic documentation (recommended!)"), disabled => sub { $minimal } },
{ val => \$minimal, type => 'bool', text => N("Truly minimal install (especially no urpmi)") },
- ),
],
changed => sub { $o->{compssUsersChoice}{X} = $docs = 0 if $minimal },
) or return &chooseGroups;
@@ -816,7 +812,7 @@ sub summary {
if ($first_time) {
#- auto-detection
- $o->configurePrinter(0) if !$::expert;
+ $o->configurePrinter(0);
install_any::preConfigureTimezone($o);
}
my $mouse_name;
@@ -887,7 +883,6 @@ sub summary {
#------------------------------------------------------------------------------
sub configurePrinter {
my ($o, $clicked) = @_;
- $::corporate && !$clicked and return;
require printer::main;
require printer::printerdrake;
@@ -895,7 +890,7 @@ sub configurePrinter {
#- try to determine if a question should be asked to the user or
#- if he is autorized to configure multiple queues.
- my $ask_multiple_printer = ($::expert || $clicked) && 2 || $o && printer::detect::local_detect();
+ my $ask_multiple_printer = $clicked ? 2 : $o && printer::detect::local_detect();
$ask_multiple_printer-- or return;
#- install packages needed for printer::getinfo()