sub getRowCount 
{
    my $self = shift;
    print "getRowCount.RowCount=",$self->{'RowCount'},"\n" if ($debug);
    return $self->{'RowCount'};
}