| 129 |
|
|
| 130 |
my $row = $input_db->fetch || next; |
my $row = $input_db->fetch || next; |
| 131 |
|
|
| 132 |
my $mfn = $row->{000}->[0] || $row->{000} || die "can't find MFN"; |
my $mfn = $row->{'000'}->[0]; |
| 133 |
|
|
| 134 |
if ($mfn =~ m#^\d+$#) { |
if (! $mfn || $mfn !~ m#^\d+$#) { |
| 135 |
$log->warn("record $pos doesn't have valid MFN but '$mfn', using $pos"); |
$log->warn("record $pos doesn't have valid MFN but '$mfn', using $pos"); |
| 136 |
$mfn = $pos; |
$mfn = $pos; |
| 137 |
$row->{000}->[0] = $pos; |
push @{ $row->{'000'} }, $pos; |
| 138 |
} |
} |
| 139 |
|
|
| 140 |
my $ds = $n->data_structure($row); |
my $ds = $n->data_structure($row); |
| 141 |
|
|
| 142 |
$est->add( |
$est->add( |
| 143 |
id => $input->{name} . "#" . $mfn, |
id => $input->{name} . "/" . $mfn, |
| 144 |
ds => $ds, |
ds => $ds, |
| 145 |
type => $config->{hyperestraier}->{type}, |
type => $config->{hyperestraier}->{type}, |
| 146 |
); |
); |
Parent Directory
| 
Revision Log
| 
Patch