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

Diff of /Sprout/ERDB.pm

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

revision 1.100, Tue Aug 12 06:07:06 2008 UTC revision 1.101, Wed Sep 3 20:56:20 2008 UTC
# Line 2371  Line 2371 
2371      }      }
2372      # Now we parse the key names into sort parameters. First, we prime the return      # Now we parse the key names into sort parameters. First, we prime the return
2373      # string.      # string.
2374      my $retVal = "sort -T\"$FIG_Config::temp\" -t\"\t\" ";      my $retVal = "sort -S 1G -T\"$FIG_Config::temp\" -t\"\t\" ";
2375      # Get the relation's field list.      # Get the relation's field list.
2376      my @fields = @{$relationData->{Fields}};      my @fields = @{$relationData->{Fields}};
2377      # Loop through the keys.      # Loop through the keys.
# Line 3261  Line 3261 
3261      my $query = $self->Get([$entityType], "$entityType(id) = ?", [$ID]);      my $query = $self->Get([$entityType], "$entityType(id) = ?", [$ID]);
3262      # Get the first (and only) object.      # Get the first (and only) object.
3263      my $retVal = $query->Fetch();      my $retVal = $query->Fetch();
3264        if (T(3)) {
3265            if ($retVal) {
3266                Trace("Entity $entityType \"$ID\" found.");
3267            } else {
3268                Trace("Entity $entityType \"$ID\" not found.");
3269            }
3270        }
3271      # Return the result.      # Return the result.
3272      return $retVal;      return $retVal;
3273  }  }

Legend:
Removed from v.1.100  
changed lines
  Added in v.1.101

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3