Parent Directory
| 
Revision Log
| 
Patch
| revision 19 by dpavlin, Sun Mar 15 21:07:54 2009 UTC | revision 20 by dpavlin, Mon Mar 16 09:58:36 2009 UTC | |
|---|---|---|
| # | Line 50 foreach my $line ( split(/\r?\n/, $csv) | Line 50 foreach my $line ( split(/\r?\n/, $csv) |
| 50 | $v =~ s[\x{17d}][F] if $n =~ m{spol}; | $v =~ s[\x{17d}][F] if $n =~ m{spol}; |
| 51 | ||
| 52 | if ( $v =~ m{#} ) { | if ( $v =~ m{#} ) { |
| 53 | my @v = split(/\s*#\s*/, $v); | my @v = split(/\s*#+\s*/, $v); |
| 54 | foreach my $pos ( 0 .. $#v ) { | foreach my $pos ( 0 .. $#v ) { |
| 55 | if ( $n =~ m{tel} ) { | if ( $n =~ m{tel} ) { |
| 56 | if ( $v[$pos] =~ m{^09} ) { | if ( $v[$pos] =~ m{^09} ) { |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |