--- trunk/all2xml.pl	2003/07/08 22:13:56	81
+++ trunk/all2xml.pl	2003/07/13 13:22:50	90
@@ -124,8 +124,14 @@
 			# init vars so that we go into while...
 			($swish,$display) = (1,1);
 
-			if ($swish || $display) {
+			# while because of repeatable fields
+			while ($swish || $display) {
 				($swish,$display) = parse_format($type, $format,$row,$repeat_off++,$import2cp);
+				if ($repeat_off > 1000) {
+					print STDERR "loop (more than 1000 repeatable fields) deteced in $row, $format\n";
+					last;
+				}
+				
 				# filter="name" ; filter this field through
 				# filter/[name].pm
 				my $filter = $x->{filter};