--- trunk/all2xml.pl	2003/07/05 22:31:46	73
+++ trunk/all2xml.pl	2003/07/05 22:37:30	74
@@ -431,7 +431,7 @@
 
 		open(FEED,"feeds/$prog |") || die "can't start $prog: $!";
 
-		my $i=0;	# record nr.
+		my $i=1;	# record nr.
 
 		my $data;
 		my $line=1;
@@ -440,7 +440,7 @@
 			chomp;
 
 			if (/^$/) {
-				my $swishpath = $database."#".$i;
+				my $swishpath = $database."#".$i++;
 
 				if (my $xml = data2xml($type_base,$data,$add_xml,$cfg,$database)) {
 					$xml = $cp2utf->convert($xml);
@@ -454,9 +454,10 @@
 				next;
 			}
 
+			$line = $1 if (s/^(\d+):\s*//);
 			$data->{$line++} = $_;
 
-			fakeprogress($i++);
+			fakeprogress($i);
 
 		}
 	}