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

Diff of /Sprout/SproutLoad.pm

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

revision 1.9, Wed Sep 14 11:21:24 2005 UTC revision 1.11, Thu Sep 15 23:07:59 2005 UTC
# Line 434  Line 434 
434      # Create load objects for each of the tables we're loading.      # Create load objects for each of the tables we're loading.
435      my $loadFeature = $self->_TableLoader('Feature', $featureCount);      my $loadFeature = $self->_TableLoader('Feature', $featureCount);
436      my $loadIsLocatedIn = $self->_TableLoader('IsLocatedIn', $featureCount);      my $loadIsLocatedIn = $self->_TableLoader('IsLocatedIn', $featureCount);
437      my ($loadFeatureAlias, $loadFeatureLink, $loadFeatureTranslation, $loadFeatureUpstream);      my $loadFeatureAlias = $self->_TableLoader('FeatureAlias', $featureCount * 6);
438        my ($loadFeatureLink, $loadFeatureTranslation, $loadFeatureUpstream);
439      if (! $limited) {      if (! $limited) {
         $loadFeatureAlias = $self->_TableLoader('FeatureAlias', $featureCount * 6);  
440          $loadFeatureLink = $self->_TableLoader('FeatureLink', $featureCount * 10);          $loadFeatureLink = $self->_TableLoader('FeatureLink', $featureCount * 10);
441          $loadFeatureTranslation = $self->_TableLoader('FeatureTranslation', $featureCount);          $loadFeatureTranslation = $self->_TableLoader('FeatureTranslation', $featureCount);
442          $loadFeatureUpstream = $self->_TableLoader('FeatureUpstream', $featureCount);          $loadFeatureUpstream = $self->_TableLoader('FeatureUpstream', $featureCount);
# Line 455  Line 455 
455          for my $featureData (@{$features}) {          for my $featureData (@{$features}) {
456              $loadFeature->Add("featureIn");              $loadFeature->Add("featureIn");
457              # Split the tuple.              # Split the tuple.
458              my ($featureID, $locations, $aliases, $type) = @{$featureData};              my ($featureID, $locations, undef, $type) = @{$featureData};
459              # Create the feature record.              # Create the feature record.
460              $loadFeature->Put($featureID, 1, $type);              $loadFeature->Put($featureID, 1, $type);
             # The next stuff is for a full load only.  
             if (! $limited) {  
461                  # Create the aliases.                  # Create the aliases.
462                  for my $alias (split /\s*,\s*/, $aliases) {              for my $alias ($fig->feature_aliases($featureID)) {
463                      $loadFeatureAlias->Put($featureID, $alias);                      $loadFeatureAlias->Put($featureID, $alias);
464                  }                  }
465                # The next stuff is for a full load only.
466                if (! $limited) {
467                  # Get the links.                  # Get the links.
468                  my @links = $fig->fid_links($featureID);                  my @links = $fig->fid_links($featureID);
469                  for my $link (@links) {                  for my $link (@links) {
# Line 487  Line 487 
487              # locations, and the locations must be split so that none of them exceed              # locations, and the locations must be split so that none of them exceed
488              # the maximum segment size. This simplifies the genes_in_region processing              # the maximum segment size. This simplifies the genes_in_region processing
489              # for Sprout.              # for Sprout.
490              my @locationList = map { "$genomeID:$_" } split /\s*,\s*/, $locations;              my @locationList = split /\s*,\s*/, $locations;
491              # Create the location position indicator.              # Create the location position indicator.
492              my $i = 1;              my $i = 1;
493              # Loop through the locations.              # Loop through the locations.
494              for my $location (@locationList) {              for my $location (@locationList) {
495                  # Parse the location.                  # Parse the location.
496                  my $locObject = BasicLocation->new($location);                  my $locObject = BasicLocation->new("$genomeID:$location");
497                  # Split it into a list of chunks.                  # Split it into a list of chunks.
498                  my @locOList = ();                  my @locOList = ();
499                  while (my $peeling = $locObject->Peel($chunkSize)) {                  while (my $peeling = $locObject->Peel($chunkSize)) {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3