diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-09-25 13:05:48 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-09-25 13:05:48 +0000 |
| commit | cefad375b85dfa21a4ca47259ef73d12c00e4803 (patch) | |
| tree | ae0f87acbcc78ea746fd72cb6c54b872efe51c0a /perl-install/install_steps_interactive.pm | |
| parent | 3e51529d1dc8033f96b0233c71956744c649c404 (diff) | |
| download | drakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.tar drakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.tar.gz drakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.tar.bz2 drakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.tar.xz drakx-cefad375b85dfa21a4ca47259ef73d12c00e4803.zip | |
log install class selection
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 10 |
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}; |