Jason E. Stewart wrote:
>
> "Steffen Goeldner" <[EMAIL PROTECTED]> writes:
>
> > Indeed, our first attempt (DBD::Oracle) checked for an array ref:
> >
> > http:[EMAIL PROTECTED]/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
