[Bast-commits] r8573 - DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle

[faxm0dem at dev.catalyst.perl.org]

Author: faxm0dem
Date: 2010-02-06 22:03:31 +0000 (Sat, 06 Feb 2010)
New Revision: 8573

Modified:
   DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
Log:
the way I thought. ribasushi suggested to override deploy(ment_statements)

Modified: DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
===================================================================
--- DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2010-02-06 22:01:04 UTC (rev 8572)
+++ DBIx-Class/0.08/branches/oracle_quotes/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2010-02-06 22:03:31 UTC (rev 8573)
@@ -42,6 +42,9 @@
 sub _dbh_get_autoinc_seq {
   my ($self, $dbh, $source, $col) = @_;
 
+	my $quote_char = $self->schema->storage->{'_sql_maker_opts'}->{'quote_char'};
+	my $name_sep   = $self->schema->storage->{'_sql_maker_opts'}->{'name_sep'};
+
   # look up the correct sequence automatically
   my $sql = q{
     SELECT trigger_body FROM ALL_TRIGGERS t
@@ -72,14 +75,16 @@
       AND t.status = 'ENABLED'
     };
     $sth = $dbh->prepare($sql);
-    $sth->execute( uc($schema), uc($table) );
+		my $table_name = $quote_char ? "$quote_char$table$quote_char" : uc($table);
+		die $table_name;
+    $sth->execute( uc($schema), $table_name );
   }
   else {
     $sth = $dbh->prepare($sql);
-    $sth->execute( uc( $source_name ) );
+    $sth->execute( $source_name );
   }
   while (my ($insert_trigger) = $sth->fetchrow_array) {
-    return uc($1) if $insert_trigger =~ m!(\w+)\.nextval!i; # col name goes here???
+    return $1 if $insert_trigger =~ m!("?\w+"?)\.nextval!i; # col name goes here???
   }
   $self->throw_exception("Unable to find a sequence INSERT trigger on table '" . $source->name . "'.");
 }