summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-08 10:07:47 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-08 10:07:47 +0000
commit4565ff5efddf045e4689508b1b44387d06312c01 (patch)
treeb6e0990329bc15f77d8a82524e7d03c234662b53 /perl-install
parent6a7a8f513ad118e8aaaf761756eee8431bbfcc59 (diff)
downloaddrakx-4565ff5efddf045e4689508b1b44387d06312c01.tar
drakx-4565ff5efddf045e4689508b1b44387d06312c01.tar.gz
drakx-4565ff5efddf045e4689508b1b44387d06312c01.tar.bz2
drakx-4565ff5efddf045e4689508b1b44387d06312c01.tar.xz
drakx-4565ff5efddf045e4689508b1b44387d06312c01.zip
(kind2description_raw) introduce it in order to be able not to get a la LaTeX
format (needed for next commits)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/authentication.pm10
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 886b45d15..cf0736233 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -58,7 +58,7 @@ my %kind2packages = (
);
-sub kind2description {
+sub kind2description_raw {
my (@kinds) = @_;
my %kind2description = (
local => [ N("Local file:"), N("Use local for all authentication and information user tell in local file"), ],
@@ -67,8 +67,14 @@ sub kind2description {
winbind => [ N("Windows Domain:"), N("Winbind allows the system to retrieve information and authenticate users in a Windows domain."), ],
KRB5 => [ N("Kerberos 5 :"), N("With Kerberos and Ldap for authentication in Active Directory Server "), ],
);
- join('', map { $_ ? qq($_->[0]\n$_->[1]\n\n) : '' } map { $kind2description{$_} } @kinds);
+ join('', map { $_ ? qq($_->[0]\n$_->[1]) : '' } map { $kind2description{$_} } @kinds);
+}
+
+sub kind2description {
+ my (@kinds) = @_;
+ join('', map { $_ ? qq($_\n\n) : '' } map { kind2description_raw($_) } @kinds);
}
+
sub to_kind {
my ($authentication) = @_;
(find { exists $authentication->{$_} } kinds()) || 'local';