use Win32::ODBC;
sub getChildren {
    my $self = shift;
    my $query = "SELECT ForestID ".
	"FROM Forest WHERE Parent=".$self->{ 'Id' }.
	" AND Tree='".$self->{ 'Type' }."'";

    undef $self->{ 'Children' };
    unless( $database->Sql( $query ) ) {
	while( $database->FetchRow() ) {
	    push( @{$self->{'Children'}}, $database->Data("ForestID"));
	}
    }else {
	return;
    }
    return $self->{ 'Children' };
}

##</code><code>##

CREATE TABLE Forest (
        ForestId   INT NOT NULL,
        Parent     INT,
        Type       CHAR( 50 ) NOT NULL,
        PRIMARY KEY( ForestID, Type ));