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

Diff of /Sprout/SimBlocks.pm

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

revision 1.7, Mon Feb 13 15:42:48 2006 UTC revision 1.9, Tue Jun 6 05:05:54 2006 UTC
# Line 226  Line 226 
226      # Get the data directory name.      # Get the data directory name.
227      my $directory = $FIG_Config::simBlocksData;      my $directory = $FIG_Config::simBlocksData;
228      # Create and bless the ERDB object.      # Create and bless the ERDB object.
229      my $retVal = ERDB::new($class, $dbh, "$directory/SimBlocksDBD.xml");      my $retVal = ERDB::new($class, $dbh, "$FIG_Config::fig/SimBlocksDBD.xml");
230      # Return it.      # Return it.
231      return $retVal;      return $retVal;
232  }  }
# Line 488  Line 488 
488      for my $genomeID (@{$set}) {      for my $genomeID (@{$set}) {
489          # Get a list of group blocks for this genome.          # Get a list of group blocks for this genome.
490          my @blocks = $self->GetList(['HasInstanceOf', 'GroupBlock'],          my @blocks = $self->GetList(['HasInstanceOf', 'GroupBlock'],
491                                      "HasInstanceOf(from-link) = ?", $genomeID);                                      "HasInstanceOf(from-link) = ?", [$genomeID]);
492          # Loop through the blocks, storing any new ones in the hash.          # Loop through the blocks, storing any new ones in the hash.
493          for my $block (@blocks) {          for my $block (@blocks) {
494              # Get the ID of this block.              # Get the ID of this block.
# Line 553  Line 553 
553      my $regionCount = 0;      my $regionCount = 0;
554      # Query all the regions for the specified block.      # Query all the regions for the specified block.
555      my $query = $self->Get(['IncludesRegion', 'Region'], "IncludesRegion(from-link) = ?",      my $query = $self->Get(['IncludesRegion', 'Region'], "IncludesRegion(from-link) = ?",
556                             $blockID);                             [$blockID]);
557      # Loop through the query.      # Loop through the query.
558      while (my $region = $query->Fetch) {      while (my $region = $query->Fetch) {
559          # Get this region's data.          # Get this region's data.
# Line 760  Line 760 
760      }      }
761      # Ask for the regions in the block.      # Ask for the regions in the block.
762      my $query = $self->Get(['IncludesRegion', 'Region'], "IncludesRegion(from-link) = ?",      my $query = $self->Get(['IncludesRegion', 'Region'], "IncludesRegion(from-link) = ?",
763                             $blockID);                             [$blockID]);
764      # Loop through the regions.      # Loop through the regions.
765      while (my $region = $query->Fetch) {      while (my $region = $query->Fetch) {
766          # Determine this region's genome set. We only continue if the region is in          # Determine this region's genome set. We only continue if the region is in

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3