diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-03-18 10:31:33 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-03-18 10:31:33 +0000 |
| commit | d41efa4f9e4ac9198ae754d83e73a6e314518078 (patch) | |
| tree | b5447b77bcce34ca9375187bbf92c9c69ace1d13 /perl-install/any.pm | |
| parent | d9e230e6e03b10b44d1d4197c98263957f0a6cc9 (diff) | |
| download | drakx-d41efa4f9e4ac9198ae754d83e73a6e314518078.tar drakx-d41efa4f9e4ac9198ae754d83e73a6e314518078.tar.gz drakx-d41efa4f9e4ac9198ae754d83e73a6e314518078.tar.bz2 drakx-d41efa4f9e4ac9198ae754d83e73a6e314518078.tar.xz drakx-d41efa4f9e4ac9198ae754d83e73a6e314518078.zip | |
- adduserdrake:
o display kdm/gdm icon again (was disabled on year ago)
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index ec5a93398..83bc734e1 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -736,6 +736,7 @@ sub ask_user_and_root { $options{needauser} ||= $security >= 3; + my @icons = facesnames(); my @suggested_names = $::isInstall ? do { my @l = grep { !/^\./ && $_ ne 'lost+found' && -d "$::prefix/home/$_" } all("$::prefix/home"); grep { ! defined getpwnam($_) } @l; @@ -797,6 +798,9 @@ sub ask_user_and_root { { label => N("Shell"), val => \$u->{shell}, list => [ shells() ], advanced => 1 }, { label => N("User ID"), val => \$u->{uid}, advanced => 1, validate => sub { $validate_uid_gid->('uid') } }, { label => N("Group ID"), val => \$u->{gid}, advanced => 1, validate => sub { $validate_uid_gid->('gid') } }, + if_($security <= 3 && !$options{noicons} && @icons, + { label => N("Icon"), val => \ ($u->{icon} ||= 'default'), list => \@icons, icon2f => \&face2png, format => \&translate }, + ), if_($security > 3, map { { label => $_, val => \$groups{$_}, text => $high_security_groups{$_}, type => 'bool' }; |