[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.11, Mon Jan 30 21:56:50 2006 UTC revision 1.16, Sun Jul 9 21:16:12 2006 UTC
# Line 28  Line 28 
28    
29  =head3 new  =head3 new
30    
31  C<< my $erload = ERDBLoad->new($erdb, $relationName, $directory); >>  C<< my $erload = ERDBLoad->new($erdb, $relationName, $directory, $loadOnly, $ignore); >>
32    
33  Begin loading an ERDB relation.  Begin loading an ERDB relation.
34    
# Line 82  Line 82 
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.          my $fileString = "| " . $erdb->SortNeeded($relationName) . ">$fileName";
         my $fileString = ($erdb->IsEntity($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);
# Line 147  Line 144 
144      my ($self, @rawFields) = @_;      my ($self, @rawFields) = @_;
145      # Only proceed if we're not ignoring.      # Only proceed if we're not ignoring.
146      if (! $self->{ignore}) {      if (! $self->{ignore}) {
147            # Convert the hash-string fields to their digested value.
148            $self->{dbh}->DigestFields($self->{relName}, \@rawFields);
149          # Insure the field values are okay.          # Insure the field values are okay.
150          my $truncates = $self->{dbh}->VerifyFields($self->{relName}, \@rawFields);          my $truncates = $self->{dbh}->VerifyFields($self->{relName}, \@rawFields);
151          # Run through the list of field values, escaping them.          # Run through the list of field values, escaping them.
# Line 207  Line 206 
206    
207  C<< my $stats = $erload->Finish(); >>  C<< my $stats = $erload->Finish(); >>
208    
209  Finish loading the table. This closes the load file and loads its contents into the database.  Finish loading the table. This closes the load file.
 It also creates the indexes if the DBMS uses post-indexing.  
210    
211  =over 4  =over 4
212    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3