summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm32
1 files changed, 25 insertions, 7 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index c23fb4ab6..f09040eda 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -21,6 +21,7 @@ use lang;
use pkgs;
use keyboard;
use fs;
+use modparm;
use log;
use printer;
@@ -541,13 +542,30 @@ information it needs? Occasionally, probing will hang a computer, but it should
not cause any damage.", $l),
[ __("Autoprobe"), __("Specify options") ], "Autoprobe") ne "Autoprobe") {
ASK:
- @options = split ' ',
- $o->ask_from_entry('',
-_("Here must give the different options for the module %s.
-Options are in format ``name=value name2=value2 ...''.
-For example you can have ``io=0x300 irq=7''", $l),
- _("Module options:"),
- );
+ my $rnames = modparm::get_options_name($m);
+ my $rvalues = modparm::get_options_value($m);
+
+ $o->ask_from_entries_ref('',
+_("Here must give the different options for the module %s.", $l),
+ $rnames, $rvalues);
+
+ @options = split ' ', modparm::get_options_result($m, $rvalues);
+# @options = split ' ',
+# $o->ask_from_entry('',
+#_("Here must give the different options for the module %s.
+#Options are in format ``name=value name2=value2 ...''.
+#For example you can have ``io=0x300 irq=7''", $l),
+# _("Module options:"),
+# );
+#=======
+# ASK:
+# @options = split ' ',
+# $o->ask_from_entry('',
+#_("Here must give the different options for the module %s.
+#Options are in format ``name=value name2=value2 ...''.
+#For example you can have ``io=0x300 irq=7''", $l),
+# _("Module options:"),
+# );
}
eval { modules::load($m, $type, @options) };
if ($@) {