summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-03-06 14:25:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-03-06 14:25:27 +0000
commitcdd491ef4af8baf94cb85b6906f6ba7c7da8d4f5 (patch)
tree9ed884ee979a248b8bcde3ec97dbdf97a5c3ff2d /perl-install/install_steps_interactive.pm
parenta91668aae284633b47fd49d70dcd9df2e2d2b648 (diff)
downloaddrakx-cdd491ef4af8baf94cb85b6906f6ba7c7da8d4f5.tar
drakx-cdd491ef4af8baf94cb85b6906f6ba7c7da8d4f5.tar.gz
drakx-cdd491ef4af8baf94cb85b6906f6ba7c7da8d4f5.tar.bz2
drakx-cdd491ef4af8baf94cb85b6906f6ba7c7da8d4f5.tar.xz
drakx-cdd491ef4af8baf94cb85b6906f6ba7c7da8d4f5.zip
let fix #2244, #2245, #2730
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index af387c92d..10e340b0b 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -935,7 +935,9 @@ sub summary {
my @sound_cards = detect_devices::getSoundDevices();
+ my $sound_index = 0;
foreach my $device (@sound_cards) {
+ my $own_sound_index = $sound_index;
push @l, {
group => N("Hardware"),
label => N("Sound card"),
@@ -944,9 +946,10 @@ sub summary {
},
clicked => sub {
require harddrake::sound;
- harddrake::sound::config($o, $device)
+ harddrake::sound::config($o, $device, $own_sound_index)
},
};
+ $sound_index++;
}
if (!@sound_cards && ($o->{compssUsersChoice}{GAMES} || $o->{compssUsersChoice}{AUDIO})) {