package SQL::Translator::Parser::DBI::Oracle;
-use O::Is;
# -------------------------------------------------------------------
-# $Id: Oracle.pm,v 1.1 2006-03-09 19:24:32 cahille Exp $
-# -------------------------------------------------------------------
-# Copyright (C) 2006 SQLFairy Authors
+# Copyright (C) 2006-2009 SQLFairy Authors
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
use SQL::Translator::Schema::Field;
use SQL::Translator::Schema::Constraint;
-our $VERSION = sprintf "%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/;
+our $VERSION = '1.59';
# -------------------------------------------------------------------
sub parse {
my $schema = $tr->schema;
- my $sth = $dbh->table_info();
+ my $db_user = uc $tr->parser_args()->{db_user};
+ my $sth = $dbh->table_info(undef, $db_user, '%', 'TABLE');
while(my $table_info = $sth->fetchrow_hashref('NAME_uc')) {
- next unless ($table_info->{TABLE_TYPE} eq 'TABLE');
next if ($table_info->{TABLE_NAME} =~ /\$/);
# create the table