summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-05 17:12:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-05 17:12:51 +0000
commit937943b4502499a9afae32313f47a73352a21a41 (patch)
tree4a9570acd26db16e0acd5094970321e489ab7d2c /perl-install/install_steps_interactive.pm
parent85e3ac6e225bd09cfa913a3a3812335f99cbfd3c (diff)
downloaddrakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.tar
drakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.tar.gz
drakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.tar.bz2
drakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.tar.xz
drakx-backup-do-not-use-937943b4502499a9afae32313f47a73352a21a41.zip
move to new ask_from's:
- ask_from_entries_ref is deprecated, use ask_from_entries_refH - ask_from_list now calls ask_from_entries_refH_powered still not done: - ask_from_treelist should use ask_from_entries_refH_powered, and lists with no help should use CList (List is bad) - keyboard and mouse binding is still rough - enhance the look
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2cdcc6bb7..eb57552d2 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -772,11 +772,10 @@ _("Use NIS") => { val => \$nis, type => 'bool', text => _("yellow pages") },
) or return;
$o->{authentication}{NIS} &&= $nis;
- $o->ask_from_entries_ref('',
+ $o->ask_from_entries_refH('',
_("Authentification NIS"),
- [ _("NIS Domain"), _("NIS Server") ],
- [ \ ($o->{netc}{NISDOMAIN} ||= $o->{netc}{DOMAINNAME}),
- { val => \$o->{authentication}{NIS}, list => ["broadcast"] },
+ [ { label => _("NIS Domain"), val => \ ($o->{netc}{NISDOMAIN} ||= $o->{netc}{DOMAINNAME}) },
+ { label => _("NIS Server"), val => \$o->{authentication}{NIS}, list => ["broadcast"] },
]) if $nis;
install_steps::setRootPassword($o);
}