[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.85, Wed May 19 14:15:57 2004 UTC revision 1.86, Wed May 19 15:54:10 2004 UTC
# Line 1571  Line 1571 
1571      my($self,$alias) = @_;      my($self,$alias) = @_;
1572      my($rdbH,$relational_db_response,$peg);      my($rdbH,$relational_db_response,$peg);
1573    
1574        if ($alias =~ /^fig\|\d+\.\d+\.peg\.\d+$/) { return $alias }
1575    
1576      $peg = "";      $peg = "";
1577      $rdbH = $self->db_handle;      $rdbH = $self->db_handle;
1578      if (($relational_db_response = $rdbH->SQL("SELECT id FROM ext_alias WHERE ( alias = \'$alias\' )")) &&      if (($relational_db_response = $rdbH->SQL("SELECT id FROM ext_alias WHERE ( alias = \'$alias\' )")) &&
# Line 4326  Line 4328 
4328      my($self,$genome,@locations) = @_;      my($self,$genome,@locations) = @_;
4329      my(@pieces,$loc,$contig,$beg,$end,$ln,$rdbH);      my(@pieces,$loc,$contig,$beg,$end,$ln,$rdbH);
4330    
4331        @locations = map { split(/,/,$_) } @locations;
4332      @pieces = ();      @pieces = ();
4333      foreach $loc (@locations)      foreach $loc (@locations)
4334      {      {

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3