summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-09-11 09:01:43 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-09-11 09:01:43 +0000
commit8cd320d720618b7b883d50d1d3cfd5c1662d61e6 (patch)
tree2bf1c74cdb9808fd96974a2e5623dd625ff7c444 /perl-install
parent063b6948cdb7fb4316c31510e6091b0aa8e45bb1 (diff)
downloaddrakx-backup-do-not-use-8cd320d720618b7b883d50d1d3cfd5c1662d61e6.tar
drakx-backup-do-not-use-8cd320d720618b7b883d50d1d3cfd5c1662d61e6.tar.gz
drakx-backup-do-not-use-8cd320d720618b7b883d50d1d3cfd5c1662d61e6.tar.bz2
drakx-backup-do-not-use-8cd320d720618b7b883d50d1d3cfd5c1662d61e6.tar.xz
drakx-backup-do-not-use-8cd320d720618b7b883d50d1d3cfd5c1662d61e6.zip
- fix: we displayed current driver as default one: display the right one
- show a wait message while switching driver
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/sound.pm7
-rwxr-xr-xperl-install/standalone/draksound3
2 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 321d5e934..4ba774be5 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -157,8 +157,9 @@ sub do_switch {
sub switch {
my ($in, $device) = @_;
- my $driver = $device->{driver};
- $driver = modules::get_alias($driver) if $driver =~ /sound-card/; # alsaconf ...
+ my $driver = $device->{current_driver};
+ $driver = $device->{driver} unless $driver;
+
foreach (@blacklist) { $blacklisted = 1 if $driver eq $_ }
my $alternative = get_alternative($driver);
if ($alternative) {
@@ -199,7 +200,9 @@ To use alsa, one can either use:
$in->ask_warn(_("Warning"), _("The old \"%s\" driver is blacklisted.\n
It has been reported to oopses the kernel on unloading.\n
The new \"%s\" driver'll only be used on next bootstrap.", $driver, $new_driver)) if $blacklisted;
+ my $wait = $in->wait_message(_("Please wait"),_("Please Wait... Applying the configuration"));
do_switch($driver, $new_driver);
+ undef $wait;
}
} elsif ($driver eq "unknown") {
$in->ask_warn(_("No known driver"),
diff --git a/perl-install/standalone/draksound b/perl-install/standalone/draksound
index a1c056d53..8af6154aa 100755
--- a/perl-install/standalone/draksound
+++ b/perl-install/standalone/draksound
@@ -39,7 +39,8 @@ if (@devices) {
# allocate sound-slot in the same order as install2.pm
# fill $device->{driver} with the right sound-slot-XX or default driver if missing sound-slot [real fix'll be in harddrake service]
my $driver = modules::get_alias("sound-slot-$::i");
- $_->{driver} = $driver if $driver;
+ $driver = modules::get_alias($driver) if $driver =~ /sound-card/; # alsaconf ...
+ $_->{current_driver} = $driver if $driver;
harddrake::sound::config($in, $_);
} modules::probe_category('multimedia/sound');
} else {