#!perl



<snip>


    buildSQL($starttable, $startwhere)

<snip>
.
.
.
.
.
.


sub buildSQL
{
    my $table=shift;
    my $where=shift;

    $level++;
    $ischild{$table}=1;

<snip>

    foreach my $child (keys($tables{$table}))
    {

<snip>

        print STDERR "About to gen SQL for $child, child of $table\n" if $table =~ m/Test2/;

<snip>

        buildSQL($child,$wh);
    }
    buildParentSQL($table);
    $level--;
}


sub buildParentSQL ()
{
    my $table=shift;

<snip>

    foreach my $parent (@{$parents{$table}})
    {
        next if defined($ischild{$parent};
        print STDERR "Generating parent SQL for $parent, parent of $table\n" if $parent =~ m/Test2/;

<snip>

        buildParentSQL($parent);
        $level--;
    }
}