diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-24 15:14:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-09-24 15:14:53 +0000 |
| commit | 1a58abd155d2fb3cc2958f595fa7a3be4aeeec66 (patch) | |
| tree | 3b80b869e8ba73b414aec29809eabf98ab5646cc /perl-install/harddrake | |
| parent | 8fe5ada6266a4d0ac2c1e413356ee149888db46f (diff) | |
| download | drakx-1a58abd155d2fb3cc2958f595fa7a3be4aeeec66.tar drakx-1a58abd155d2fb3cc2958f595fa7a3be4aeeec66.tar.gz drakx-1a58abd155d2fb3cc2958f595fa7a3be4aeeec66.tar.bz2 drakx-1a58abd155d2fb3cc2958f595fa7a3be4aeeec66.tar.xz drakx-1a58abd155d2fb3cc2958f595fa7a3be4aeeec66.zip | |
split harddrake part that configure a module into modules::interactive
Diffstat (limited to 'perl-install/harddrake')
| -rw-r--r-- | perl-install/harddrake/ui.pm | 18 |
1 files changed, 2 insertions, 16 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm index c12a9a5ea..0a1d25446 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm @@ -188,22 +188,8 @@ sub new { if (exists $data->{driver} && $data->{driver} !~ /(unknown|.*\|.*)/ && $data->{driver} !~ /^Card:/) { $module_cfg_button->show; $IDs{module} = $module_cfg_button->signal_connect(clicked => sub { - require modules; - modules::mergein_conf('/etc/modules.conf'); - my %conf = modules::get_parameters($data->{driver}); - require modparm; - my @l; - foreach (modparm::parameters($data->{driver})) { - my ($name, $format, $description) = @$_; - push @l, { label => $name, help => "$description\n[$format]", val => \$conf{$name} }; - } - if ($in->ask_from("Module configuration", _("You can configure each parameter of the module here."), \@l)) { - my $options = join(' ', map { if_($conf{$_}, "$_=$conf{$_}") } keys %conf); - if ($options) { - modules::set_options($_->{driver}, $options); - modules::write_conf; - } - } + require modules::interactive; + modules::interactive::config_window($in, $data); gtkset_mousecursor_normal(); }); } |