diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 15 |
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() |