From 4565ff5efddf045e4689508b1b44387d06312c01 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 8 Sep 2008 10:07:47 +0000
Subject: (kind2description_raw) introduce it in order to be able not to get a
 la LaTeX format (needed for next commits)

---
 perl-install/authentication.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'perl-install/authentication.pm')

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';
-- 
cgit v1.2.1