Fixed a bug in getLineageSql which was returning an empty array ref in certain cases.

This commit is contained in:
Frank Dillon 2008-09-07 16:30:17 +00:00
parent 4dd7dcfe5e
commit 1eeb3e0eea

View file

@ -347,6 +347,10 @@ sub getLineage {
my $sql = $self->getLineageSql($relatives,$rules);
unless ($sql) {
return [];
}
my @lineage;
my %relativeCache;
my $sth = $self->session->db->read($sql);
@ -613,7 +617,7 @@ sub getLineageSql {
}
## finish up our where clause
if (!scalar(@whereModifiers)) {
return [];
return "";
}
$where .= ' and ('.join(" or ",@whereModifiers).')';
if (exists $rules->{whereClause} && $rules->{whereClause}) {