From cdd491ef4af8baf94cb85b6906f6ba7c7da8d4f5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 6 Mar 2003 14:25:27 +0000
Subject: let fix #2244, #2245, #2730

---
 perl-install/install_steps_interactive.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps_interactive.pm')

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})) {
-- 
cgit v1.2.1