> I'm in the process of running through my alterations to
> DBD::Oracle which fix this (to make sure I haven't done
> anything drastically stupid), if you would like me to submit
> them to you then I am happy to do so.
Am including a diff of the file here
bash-2.03$ diff Oracle.pm Oracle.pm.pre_GH_fix
327,332c327,328
< if (( defined $CatVal ) && ( defined $SchVal ) && ( defined $TblVal
)) {
< if ( $CatVal eq '%'
< && $SchVal eq ''
< && $TblVal eq '') { # Rule 19a
<
< $Sql = <<'SQL';
---
> if ( $CatVal eq '%' && $SchVal eq '' && $TblVal eq '') { # Rule 19a
> $Sql = <<'SQL';
334,337c330,333
< , NULL TABLE_SCHEM
< , NULL TABLE_NAME
< , NULL TABLE_TYPE
< , NULL REMARKS
---
> , NULL TABLE_SCHEM
> , NULL TABLE_NAME
> , NULL TABLE_TYPE
> , NULL REMARKS
340,344c336,338
< } elsif ( $SchVal eq '%'
< && $CatVal eq ''
< && $TblVal eq '') { # Rule 19b
<
< $Sql = <<'SQL';
---
> }
> elsif ( $SchVal eq '%' && $CatVal eq '' && $TblVal eq '') { # Rule
19b
> $Sql = <<'SQL';
346,349c340,343
< , USERNAME TABLE_SCHEM
< , NULL TABLE_NAME
< , NULL TABLE_TYPE
< , NULL REMARKS
---
> , USERNAME TABLE_SCHEM
> , NULL TABLE_NAME
> , NULL TABLE_TYPE
> , NULL REMARKS
353,358c347,349
< } elsif ( $TypVal eq '%'
< && $CatVal eq ''
< && $SchVal eq ''
< && $TblVal eq '') { # Rule 19c
<
< $Sql = <<'SQL';
---
> }
> elsif ( $TypVal eq '%' && $CatVal eq '' && $SchVal eq '' && $TblVal
eq '') { # Rule 19c
> $Sql = <<'SQL';
360,363c351,354
< , NULL TABLE_SCHEM
< , NULL TABLE_NAME
< , t.tt TABLE_TYPE
< , NULL REMARKS
---
> , NULL TABLE_SCHEM
> , NULL TABLE_NAME
> , t.tt TABLE_TYPE
> , NULL REMARKS
367c358
< UNION
---
> UNION
369c360
< UNION
---
> UNION
371c362
< UNION
---
> UNION
376,377c367,368
< }
< } else {
---
> }
> else {
383,386c374,377
< , decode( t.OWNER, 'PUBLIC', '', t.OWNER ) TABLE_SCHEM
< , t.TABLE_NAME TABLE_NAME
< , t.TABLE_TYPE TABLE_TYPE
< , c.COMMENTS REMARKS
---
> , decode( t.OWNER, 'PUBLIC', '', t.OWNER ) TABLE_SCHEM
> , t.TABLE_NAME TABLE_NAME
> , t.TABLE_TYPE TABLE_TYPE
> , c.COMMENTS REMARKS
388c379
< , ALL_CATALOG t
---
> , ALL_CATALOG t
401c392
< my $table_type_list = '';
---
> my $table_type_list;
End of Diff
Hope this helps, of course a hackish fix is to always pass '%' instead of
using undef.
--
********** Confidentiality Notice & Disclaimer **********
This message, together with any attachments, is for the confidential and exclusive use
of the addressee(s).
If you receive it in error, please delete the message and its attachments from your
system immediately and notify us by return e-mail.
Do not disclose, copy, circulate or use any information contained in this e-mail.
(1) The content of this e-mail is to be read subject to Thomson Holidays terms of
business, as applicable.
(2) E-mail may be intercepted or affected by viruses and Thomson Holidays accepts no
responsibility for any interception or liability for any form of viruses introduced
with this e-mail.
(3) The sender shall remain solely accountable for any statements, representations or
opinions that are clearly his or her own and not made in the course of employment.
***************************************************************
TUI UK Limited
Registered in England and Wales (Number 2830117)
Registered Office: Greater London House, Hampstead Road, London NW1 7SD
Telephone: +44 (0)20 7387 9321
Fax: +44 (0)20 7387 8451
IT Helpdesk: +44 (0)20 7383 1555
E-mail: [EMAIL PROTECTED]
