diff options
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 32 |
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 ($@) { |