From cefad375b85dfa21a4ca47259ef73d12c00e4803 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 25 Sep 2002 13:05:48 +0000
Subject: log install class selection

---
 perl-install/install_steps_interactive.pm | 10 ++++++++--
 1 file 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};
-- 
cgit v1.2.1