Revision 26

Date:
2009/03/16 14:58:54
Author:
dpavlin
Revision Log:
fix gender (since we don't mark string as utf-8 anymore)
Files:

Legend:

 
Added
 
Removed
 
Modified
  • bin/csv2yaml.pl

     
    47 47
    48 48 # fix tel fields
    49 49 $v =~ s{\s+}{#}g if $n =~ m{tel};
    50 $v =~ s[\x{17d}][F] if $n =~ m{spol};
    50 $v =~ s[\xC5\xBD][F]i if $n =~ m{spol};
    51 51
    52 52 if ( $v =~ m{#} ) { # subfields delimiter in CSV data
    53 53 my @v = split(/\s*#+\s*/, $v);