diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-10-06 17:52:58 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-10-06 17:52:58 +0000 |
| commit | fe224251aa0fe2285b7b1eda762e5b18ddee07a0 (patch) | |
| tree | 72f80085cb97c05ac1b0f264ae0e1489c4d3e953 /perl-install/install_steps_interactive.pm | |
| parent | 8f7cb6dae22fc5adc6eb8c57605e16f97cfee179 (diff) | |
| download | drakx-fe224251aa0fe2285b7b1eda762e5b18ddee07a0.tar drakx-fe224251aa0fe2285b7b1eda762e5b18ddee07a0.tar.gz drakx-fe224251aa0fe2285b7b1eda762e5b18ddee07a0.tar.bz2 drakx-fe224251aa0fe2285b7b1eda762e5b18ddee07a0.tar.xz drakx-fe224251aa0fe2285b7b1eda762e5b18ddee07a0.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 41052c851..03899cb83 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -82,7 +82,7 @@ sub selectRootPartition($@) { $o->{upgradeRootPartition} = $o->ask_from_list_(_("Root Partition"), _("What is the root partition (/) of your system?"), - [ @partitions ], $o->{upgradeRootPartitions}); + [ @partitions ]); #- TODO check choice, then mount partition in $o->{prefix} and autodetect. #- install_steps::selectRootPartition($o); } @@ -552,6 +552,7 @@ sub setupBootloaderBefore { $o->SUPER::setupBootloaderBefore($o); } +#------------------------------------------------------------------------------ sub setupBootloader { my ($o, $more) = @_; my $b = $o->{bootloader}; @@ -725,13 +726,13 @@ Do you want to try again with other parameters?", $l), 1) or return; #------------------------------------------------------------------------------ sub load_thiskind { my ($o, $type) = @_; - my $w; + my ($pcmcia, $w) = $o->{pcmcia} unless $::expert && modules::pcmcia_need_config($o->{pcmcia}) && $o->ask_yesorno('', _("Skip PCMCIA probing", 1)); modules::load_thiskind($type, sub { $w = $o->wait_message('', [ _("Installing driver for %s card %s", $type, $_->[0]), $::beginner ? () : _("(module %s)", $_->[1]) ]); - }); + }, $pcmcia); } #------------------------------------------------------------------------------ |