summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-09-25 13:05:48 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-09-25 13:05:48 +0000
commitcefad375b85dfa21a4ca47259ef73d12c00e4803 (patch)
treeae0f87acbcc78ea746fd72cb6c54b872efe51c0a
parent3e51529d1dc8033f96b0233c71956744c649c404 (diff)
downloaddrakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.tar
drakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.tar.gz
drakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.tar.bz2
drakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.tar.xz
drakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.zip
log install class selection
-rw-r--r--perl-install/install_steps_interactive.pm10
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 825ce342d..21e9c68ed 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -263,6 +263,7 @@ sub selectInstallClass {
if ($installMode = $o->selectInstallClass1($verifInstallClass,
first(list2kv(@c)), ${{reverse %c}}{$::expert ? "expert" : "beginner"},
exists $o->{isUpgrade} ? [] : [ __("Install"), __("Upgrade"), __("Upgrade packages only") ], $installMode)) {
+ log::l("install class: $installMode");
$o->{isUpgrade} = $installMode =~ /Upgrade/;
$o->{keepConfiguration} = $installMode =~ /packages only/;
}
@@ -1031,8 +1032,13 @@ sub summary {
{ label => _("ISDN card"), val => $_->{description}, clicked => sub { $o->configureNetwork } }
} grep { $_->{driver} eq 'hisax' } detect_devices::probeall()),
(map {
-{ label => _("Sound card"), val => $_->{description} }
- } @sound_cards),
+ my $device = $_;
+ { label => _("Sound card"), val => $_->{description}, clicked => sub {
+ require harddrake::sound;
+ harddrake::sound::config($o, $device)
+ }
+ }
+ } @sound_cards),
if_($isa_sound_card, { label => _("Sound card"), clicked => $isa_sound_card }),
(map {
my $driver = $_->{driver};