summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-31 18:28:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-31 18:28:00 +0000
commit4fb58f50234c507d82cea15e3708e1b4d1584503 (patch)
treeed48615b9dc74fe1ed6504b701376d93847e1de7 /perl-install/any.pm
parente49ef06e94b9c3846ab6c4bd50afcb5d77597720 (diff)
downloaddrakx-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.pm7
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 {