--- trunk/run.pl	2005/12/18 23:10:02	290
+++ trunk/run.pl	2005/12/18 23:34:24	291
@@ -129,18 +129,18 @@
 
 			my $row = $input_db->fetch || next;
 
-			my $mfn = $row->{000}->[0] || $row->{000} || die "can't find MFN";
+			my $mfn = $row->{'000'}->[0];
 
-			if ($mfn =~ m#^\d+$#) {
+			if (! $mfn || $mfn !~ m#^\d+$#) {
 				$log->warn("record $pos doesn't have valid MFN but '$mfn', using $pos");
 				$mfn = $pos;
-				$row->{000}->[0] = $pos;
+				push @{ $row->{'000'} }, $pos;
 			}
 
 			my $ds = $n->data_structure($row);
 
 			$est->add(
-				id => $input->{name} . "#" . $mfn,
+				id => $input->{name} . "/" . $mfn,
 				ds => $ds,
 				type => $config->{hyperestraier}->{type},
 			);