[Bio] / Sprout / ERDBLoad.pm Repository:
ViewVC logotype

Diff of /Sprout/ERDBLoad.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5, Wed Oct 12 02:58:20 2005 UTC revision 1.6, Thu Oct 13 14:49:36 2005 UTC
# Line 67  Line 67 
67      # If this is a primary entity relation, sort the output to remove      # If this is a primary entity relation, sort the output to remove
68      # duplicate keys.      # duplicate keys.
69      my $fileString = ($erdb->IsEntity($relationName) ?      my $fileString = ($erdb->IsEntity($relationName) ?
70                          "| sort +0 -1 -u -t \\t >$fileName" :                          "| sort +0 -1 -u -t \"\t\" >$fileName" :
71                          ">$fileName");                          ">$fileName");
72      # Open the output file and remember its handle.      # Open the output file and remember its handle.
73      my $fileHandle = Open(undef, $fileString);      my $fileHandle = Open(undef, $fileString);
# Line 82  Line 82 
82                    stats => Stats->new(),                    stats => Stats->new(),
83                    primary => $erdb->_IsPrimary($relationName)                    primary => $erdb->_IsPrimary($relationName)
84                   };                   };
85        Trace("Relation $relationName load file created with primary flag " . $retVal->{primary} . ".")
86            if T(2);
87      # Bless and return it.      # Bless and return it.
88      bless $retVal, $class;      bless $retVal, $class;
89      return $retVal;      return $retVal;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3