Hi John
Pursuant to my attempts to generate Perl code under Oracle, I had to make a
number of patches to this module.
This is just a heads-up, with messy code you're free to clean up :-)).
Basically, Oracle returns uc $everything after calls to column_info() and
primary_key_info(), and primary_key_info needs uc $username for schema.
[EMAIL PROTECTED] perl-modules]$ diff
original/lib/Rose/DB/Object/Metadata/Auto.pm
installed/lib/Rose/DB/Object/Metadata/Auto.pm
83c83
< my $sth = $dbh->column_info($catalog, $schema, $table_unquoted, '%');
---
> my $sth = $dbh->column_info($catalog, $schema, uc $table_unquoted, '%');
100,102c100,102
< next COLUMN unless($col_info->{'TABLE_CAT'} eq $catalog &&
< $col_info->{'TABLE_SCHEM'} eq $schema &&
< $col_info->{'TABLE_NAME'} eq $table_unquoted);
---
> next COLUMN unless(uc $col_info->{'TABLE_CAT'} eq uc $catalog &&
> uc $col_info->{'TABLE_SCHEM'} eq uc ($schema ||
'USERNAME') &&
> uc $col_info->{'TABLE_NAME'} eq uc
$table_unquoted);
312c312
< my $sth = $dbh->primary_key_info($catalog, $schema, $table_unquoted);
---
> my $sth = $dbh->primary_key_info($catalog, $schema || 'USERNAME', uc
$table_unquoted);
329,331c329,331
< next PK unless($pk_info->{'TABLE_CAT'} eq $catalog &&
< $pk_info->{'TABLE_SCHEM'} eq $schema &&
< $pk_info->{'TABLE_NAME'} eq $table_unquoted);
---
> next PK unless(uc $pk_info->{'TABLE_CAT'} eq uc $catalog &&
> uc $pk_info->{'TABLE_SCHEM'} eq uc ($schema ||
'USERNAME') &&
> uc $pk_info->{'TABLE_NAME'} eq uc $table_unquoted);
As always, my editor deleted a lot of trailing spaces when saving these files.
The end result is exactly what I want. Good stuff!
--
Ron Savage
[EMAIL PROTECTED]
http://savage.net.au/index.html
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
Rose-db-object mailing list
Rose-db-object@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rose-db-object
