summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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};