From: Dobrica Pavlinusic Date: Sun, 15 Mar 2009 21:07:54 +0000 (+0000) Subject: fix gender X-Git-Url: http://git.rot13.org/?p=virtual-ldap;a=commitdiff_plain;h=4f4ef12009e8ec6d070f7473d2405ec0659229ba fix gender --- diff --git a/bin/csv2yaml.pl b/bin/csv2yaml.pl index ec9bf4e..7faa9af 100755 --- a/bin/csv2yaml.pl +++ b/bin/csv2yaml.pl @@ -47,6 +47,7 @@ foreach my $line ( split(/\r?\n/, $csv) ) { # fix tel fields $v =~ s{\s+}{#}g if $n =~ m{tel}; + $v =~ s[\x{17d}][F] if $n =~ m{spol}; if ( $v =~ m{#} ) { my @v = split(/\s*#\s*/, $v);