--- trunk/run.pl	2005/12/18 22:16:39	288
+++ trunk/run.pl	2005/12/18 23:10:02	290
@@ -125,11 +125,17 @@
 			);
 		}
 
-		for ( 0 ... $input_db->size ) {
+		foreach my $pos ( 0 ... $input_db->size ) {
 
 			my $row = $input_db->fetch || next;
 
-			my $mfn = $row->{'000'}->[0] || die "can't find MFN";
+			my $mfn = $row->{000}->[0] || $row->{000} || die "can't find MFN";
+
+			if ($mfn =~ m#^\d+$#) {
+				$log->warn("record $pos doesn't have valid MFN but '$mfn', using $pos");
+				$mfn = $pos;
+				$row->{000}->[0] = $pos;
+			}
 
 			my $ds = $n->data_structure($row);