[prev in list] [next in list] [prev in thread] [next in thread] 

List:       dbi-dev
Subject:    Re: tables() and table_info()
From:       Steffen Goeldner <s.goeldner () eurodata ! de>
Date:       2001-11-20 10:58:32
[Download RAW message or body]

Jason E. Stewart wrote:
> 
> "Steffen Goeldner" <s.goeldner@eurodata.de> writes:
> 
> > Indeed, our first attempt (DBD::Oracle) checked for an array ref:
> >
> >   http://archive.develooper.com/dbi-dev@perl.org/msg00091.html
> 
> Reading the thread it's hard to tell what actually made it into the
> code. Did you keep the array ref, or was that removed to use the
> single scalar comma delimited string?
> 
> jas.

The latter:

	my $TypVal = $attr->{TABLE_TYPE};
	...
		if ( defined $TypVal ) {
			my $table_type_list;
			$TypVal =~ s/^\s+//;
			$TypVal =~ s/\s+$//;
			my @ttype_list = split (/\s*,\s*/, $TypVal);
			foreach my $table_type (@ttype_list) {
				if ($table_type !~ /^'.*'$/) {
					$table_type = "'" . $table_type . "'";
				}
				$table_type_list = join(", ", @ttype_list);
			}
			push @Where, "TABLE_TYPE IN ($table_type_list)";
	...


Steffen

[prev in list] [next in list] [prev in thread] [next in thread]