summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-09-24 15:14:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-09-24 15:14:53 +0000
commit1a58abd155d2fb3cc2958f595fa7a3be4aeeec66 (patch)
tree3b80b869e8ba73b414aec29809eabf98ab5646cc /perl-install/harddrake
parent8fe5ada6266a4d0ac2c1e413356ee149888db46f (diff)
downloaddrakx-backup-do-not-use-1a58abd155d2fb3cc2958f595fa7a3be4aeeec66.tar
drakx-backup-do-not-use-1a58abd155d2fb3cc2958f595fa7a3be4aeeec66.tar.gz
drakx-backup-do-not-use-1a58abd155d2fb3cc2958f595fa7a3be4aeeec66.tar.bz2
drakx-backup-do-not-use-1a58abd155d2fb3cc2958f595fa7a3be4aeeec66.tar.xz
drakx-backup-do-not-use-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.pm18
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();
});
}