diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-31 18:28:00 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-31 18:28:00 +0000 |
| commit | 4fb58f50234c507d82cea15e3708e1b4d1584503 (patch) | |
| tree | ed48615b9dc74fe1ed6504b701376d93847e1de7 /perl-install/any.pm | |
| parent | e49ef06e94b9c3846ab6c4bd50afcb5d77597720 (diff) | |
| download | drakx-4fb58f50234c507d82cea15e3708e1b4d1584503.tar drakx-4fb58f50234c507d82cea15e3708e1b4d1584503.tar.gz drakx-4fb58f50234c507d82cea15e3708e1b4d1584503.tar.bz2 drakx-4fb58f50234c507d82cea15e3708e1b4d1584503.tar.xz drakx-4fb58f50234c507d82cea15e3708e1b4d1584503.zip | |
no_comment
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 1a1414920..3edfc176d 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -21,11 +21,16 @@ my @users_male = (__("tie"), __("default"), __("curly")); #- don't change the na my @users_female = (__("brunette"), __("girl"), __("woman-blond")); @users = (@users_male, @users_female, __("automagic")); +sub icon2file { + my ($icon, $prefix) = @_; + "$prefix/usr/share/icons/user-$icon-mdk.xpm"; +} + sub addKdmIcon { my ($prefix, $user, $icon, $force) = @_; my $dest = "$prefix/usr/share/apps/kdm/pics/users/$user.xpm"; unlink $dest if $force; - eval { commands::cp("$prefix/usr/share/icons/user-$icon-mdk.xpm", $dest) } if $icon; + eval { commands::cp(icon2file($icon, $prefix), $dest) } if $icon; } sub allocUsers { |