82 |
Trace("Relation $relationName will be loaded from $fileName.") if T(2); |
Trace("Relation $relationName will be loaded from $fileName.") if T(2); |
83 |
$fileHandle = ""; |
$fileHandle = ""; |
84 |
} else { |
} else { |
85 |
# If this is a primary entity relation, sort the output to remove |
# Determine the sort for this relation. |
86 |
# duplicate keys and make the load more efficient. |
my $fileString = "| " . $erdb->SortNeeded($relationName) . ">$fileName"; |
|
my $fileString = ($erdb->SortNeeded($relationName) ? |
|
|
"| sort +0 -1 -u -t \"\t\" >$fileName" : |
|
|
">$fileName"); |
|
87 |
# Open the output file and remember its handle. |
# Open the output file and remember its handle. |
88 |
$fileHandle = Open(undef, $fileString); |
$fileHandle = Open(undef, $fileString); |
89 |
Trace("Relation $relationName load file created with primary flag $primary.") if T(2); |
Trace("Relation $relationName load file created with primary flag $primary.") if T(2); |