summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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';