summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 60bca91ec..ebc8c5973 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -543,16 +543,18 @@ sub ask_users {
my $ret = $in->ask_from_(
{ title => N("Add user"),
messages => N("Enter a user\n%s", $names),
- ok => N("Accept user"),
- cancel => $security < 4 || @$users ? N("Done") : '',
+ focus_first => 1,
+ if_(!$::isInstall, ok => N("Done")),
+ cancel => N("Accept user"),
callbacks => {
focus_out => sub {
if ($_[0] eq 0) {
$u->{name} ||= lc first($u->{realname} =~ /([\w-]+)/);
}
},
- complete => $verif,
- canceled => sub { $u->{name} ? &$verif : 0 },
+ complete => sub { $u->{name} ? &$verif : 0 },
+ canceled => $verif,
+ ok_disabled => sub { $security >= 4 && !@$users },
} }, [
{ label => N("Real name"), val => \$u->{realname} },
{ label => N("User name"), val => \$u->{name} },
@@ -573,7 +575,7 @@ sub ask_users {
push @$users, $u if $u->{name};
$u = {};
- $ret or return;
+ $ret and return;
}
}