[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.2, Fri Jul 13 22:37:49 2007 UTC revision 1.4, Tue Sep 4 19:49:40 2007 UTC
# Line 44  Line 44 
44          }          }
45          else          else
46          {          {
47              die "Where are the alignments and trees?";              warn "Where are the alignments and trees?";
48                return undef;
49          }          }
50      }      }
51    
# Line 59  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 70  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.2  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3