summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-06 17:07:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-06 17:07:15 +0000
commitdabe48195cab109ba9cb2bd179500ef481d53348 (patch)
treeaabb59ee38f421a9172b42d94706e4355c776ca0 /perl-install/Xconfigurator.pm
parent937943b4502499a9afae32313f47a73352a21a41 (diff)
downloaddrakx-dabe48195cab109ba9cb2bd179500ef481d53348.tar
drakx-dabe48195cab109ba9cb2bd179500ef481d53348.tar.gz
drakx-dabe48195cab109ba9cb2bd179500ef481d53348.tar.bz2
drakx-dabe48195cab109ba9cb2bd179500ef481d53348.tar.xz
drakx-dabe48195cab109ba9cb2bd179500ef481d53348.zip
ask_from_entries_refH parameter format has changed so change all accesses to it.
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 925749ead..61fb4911c 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -342,12 +342,12 @@ sub optionsConfiguration($) {
my $options = 'options_' . ($o->{card}{server} eq 'XFree86' ? 'xf4' : 'xf3');
$o->{card}{$options}{$_->[0]} ||= 0;
unless ($l{$_->[0]}) {
- push @l, $_->[0], { val => \$o->{card}{$options}{$_->[0]}, type => 'bool' };
+ push @l, { label => $_->[0], val => \$o->{card}{$options}{$_->[0]}, type => 'bool' };
$l{$_->[0]} = 1;
}
}
}
- @l = @l[0..19] if @l > 19; #- reduce list size to 10 for display (it's a hash).
+ @l = @l[0..9] if @l > 9; #- reduce list size to 10 for display
$in->ask_from_entries_refH('', _("Choose options for server"), \@l);
}
@@ -1159,8 +1159,8 @@ sub autologin {
$in->ask_from_entries_refH(_("Autologin"),
_("I can set up your computer to automatically log on one user.
If you don't want to use this feature, click on the cancel button."),
- [ _("Choose the default user:") => { val => \$o->{autologin}, list => [ '', @users ] },
- _("Choose the window manager to run:") => { val => \$o->{desktop}, list => \@wm }, ]) or delete $o->{autologin};
+ [ { label => _("Choose the default user:"), val => \$o->{autologin}, list => [ '', @users ] },
+ { label => _("Choose the window manager to run:"), val => \$o->{desktop}, list => \@wm }, ]) or delete $o->{autologin};
}
$o->{autologin} and $::isStandalone ? do { $in->suspend; system("urpmi --auto --best-output autologin"); $in->resume; } : $in->pkg_install("autologin");
any::setAutologin($prefix, $o->{autologin}, $o->{desktop});