People like the new style interface!
Attached is a patch for DBD::Oracle that provides both -
the new and the old - interfaces.
Steffen
*** DBD-Oracle-1.12/Oracle.pm Fri Aug 31 18:27:18 2001
--- DBD/Oracle.pm Fri Sep 07 22:20:40 2001
***************
*** 314,327 ****
sub table_info {
! my($dbh, $attr) = @_;
# XXX add knowledge of temp tables, etc
-
# SQL/CLI (ISO/IEC JTC 1/SC 32 N 0595), 6.63 Tables
! my $CatVal = $attr->{TABLE_CAT};
! my $SchVal = $attr->{TABLE_SCHEM};
! my $TblVal = $attr->{TABLE_NAME};
! my $TypVal = $attr->{TABLE_TYPE};
my @Where = ();
my $Sql;
if ( $CatVal eq '%' && $SchVal eq '' && $TblVal eq '') { # Rule 19a
--- 314,326 ----
sub table_info {
! my($dbh, $CatVal, $SchVal, $TblVal, $TypVal) = @_;
# XXX add knowledge of temp tables, etc
# SQL/CLI (ISO/IEC JTC 1/SC 32 N 0595), 6.63 Tables
! if (ref $CatVal eq 'HASH') {
! ($CatVal, $SchVal, $TblVal, $TypVal) =
! @$CatVal{'TABLE_CAT','TABLE_SCHEM','TABLE_NAME','TABLE_TYPE'};
! }
my @Where = ();
my $Sql;
if ( $CatVal eq '%' && $SchVal eq '' && $TblVal eq '') { # Rule 19a
