124 |
# init vars so that we go into while... |
# init vars so that we go into while... |
125 |
($swish,$display) = (1,1); |
($swish,$display) = (1,1); |
126 |
|
|
127 |
if ($swish || $display) { |
# while because of repeatable fields |
128 |
|
while ($swish || $display) { |
129 |
($swish,$display) = parse_format($type, $format,$row,$repeat_off++,$import2cp); |
($swish,$display) = parse_format($type, $format,$row,$repeat_off++,$import2cp); |
130 |
|
if ($repeat_off > 1000) { |
131 |
|
print STDERR "loop (more than 1000 repeatable fields) deteced in $row, $format\n"; |
132 |
|
last; |
133 |
|
} |
134 |
|
|
135 |
# filter="name" ; filter this field through |
# filter="name" ; filter this field through |
136 |
# filter/[name].pm |
# filter/[name].pm |
137 |
my $filter = $x->{filter}; |
my $filter = $x->{filter}; |