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

Diff of /FigKernelPackages/AliTrees.pm

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

revision 1.3, Wed Aug 1 12:30:45 2007 UTC revision 1.4, Tue Sep 4 19:49:40 2007 UTC
# Line 60  Line 60 
60    
61      my $fig = $self->{fig};      my $fig = $self->{fig};
62      my $dbh = $fig->db_handle;      my $dbh = $fig->db_handle;
63        if (! $dbh->table_exists('alignments')) { return () }
64    
65      my $res = $dbh->SQL("SELECT DISTINCT ali_id from alignments");      my $res = $dbh->SQL("SELECT DISTINCT ali_id from alignments");
66      return sort map { $_->[0] } @$res;      return sort map { $_->[0] } @$res;
# Line 71  Line 72 
72      my $fig = $self->{fig};      my $fig = $self->{fig};
73      my $dbh = $fig->db_handle;      my $dbh = $fig->db_handle;
74    
75        if (! $dbh->table_exists('alignments')) { return () }
76    
77      my $res = $dbh->SQL("SELECT DISTINCT ali_id from alignments WHERE peg = '$peg'");      my $res = $dbh->SQL("SELECT DISTINCT ali_id from alignments WHERE peg = '$peg'");
78      return sort map { $_->[0] } @$res;      return sort map { $_->[0] } @$res;
79  }  }

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3