Parent Directory | Revision Log | Patch
revision 25 by dpavlin, Mon Mar 16 13:54:50 2009 UTC | revision 26 by dpavlin, Mon Mar 16 14:58:54 2009 UTC | |
---|---|---|
# | Line 47 foreach my $line ( split(/\r?\n/, $csv) | Line 47 foreach my $line ( split(/\r?\n/, $csv) |
47 | ||
48 | # fix tel fields | # fix tel fields |
49 | $v =~ s{\s+}{#}g if $n =~ m{tel}; | $v =~ s{\s+}{#}g if $n =~ m{tel}; |
50 | $v =~ s[\x{17d}][F] if $n =~ m{spol}; | $v =~ s[\xC5\xBD][F]i if $n =~ m{spol}; |
51 | ||
52 | if ( $v =~ m{#} ) { # subfields delimiter in CSV data | if ( $v =~ m{#} ) { # subfields delimiter in CSV data |
53 | my @v = split(/\s*#+\s*/, $v); | my @v = split(/\s*#+\s*/, $v); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |