DBD::ODBC::db selectcol_arrayref failed: [Microsoft][ODBC SQL Server Driver][SQL Server]Server user 'webuser' is not a valid user in database 'xmodel'.

##</code><code>##

sub getalltables {
    my $dbh_g = &getcxn_dbi_goldmine;
    my @dbs = @{$dbh_g->selectcol_arrayref(q{
	select name from master..sysdatabases(nolock)})}; 
    if ($dbh_g->err) {die "bad get dbs: ", $dbh_g->errstr;}
    my @alltbls;
    foreach my $db (@dbs) {
	my $sql = qq{select name from $db..sysobjects(nolock) where type='U'};
	my $ref;
	eval {
	    $ref = $dbh_g->selectcol_arrayref($sql)
	    };
	if ($ref) {
	    my @tbls = @{$ref};
	    foreach my $tbl (@tbls) {
		push(@alltbls, $db . ".." . $tbl);
	    }
	}
    }
    return @alltbls;
}