[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.677, Mon Mar 17 13:46:26 2008 UTC revision 1.678, Thu Mar 20 14:54:19 2008 UTC
# Line 7394  Line 7394 
7394    
7395      my $cond = join(" or ", map { "id = '$_'" } @ids);      my $cond = join(" or ", map { "id = '$_'" } @ids);
7396    
7397        my $out = {};
7398        if($cond){
7399      $rdbH = $self->db_handle;      $rdbH = $self->db_handle;
7400    
7401      my $res = $rdbH->SQL(qq(SELECT id, aliases          my $res = $rdbH->SQL("SELECT id, aliases FROM features WHERE ( $cond )");
                             FROM features  
                             WHERE ( $cond )));  
7402    
7403      %aliases = ();      %aliases = ();
7404      for my $ent (@$res)      for my $ent (@$res)
# Line 7418  Line 7418 
7418          $aliases{$id}->{$alias} = 1;          $aliases{$id}->{$alias} = 1;
7419      }      }
7420    
     my $out = {};  
   
7421      for my $id (keys(%aliases))      for my $id (keys(%aliases))
7422      {      {
7423          $out->{$id} = [sort grep { not /^xxx\d+$/ } keys(%{$aliases{$id}})];          $out->{$id} = [sort grep { not /^xxx\d+$/ } keys(%{$aliases{$id}})];
7424      }      }
7425        }
7426    
7427      return $out;      return $out;
7428  }  }

Legend:
Removed from v.1.677  
changed lines
  Added in v.1.678

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3