Merge 'storage-interbase' into 'trunk'

diff --combined Changes

index 1fa7499,536a54b..08728f8
--- 1/Changes
--- 2/Changes
+++ b/Changes
@@@ -1,12 -1,11 +1,13 @@@
  Revision history for DBIx::Class
  
+         - Support for Firebird RDBMS with DBD::InterBase and ODBC
          - DBIx::Class::InflateColumn::File entered deprecated state
          - DBIx::Class::Optional::Dependencies left experimental state
          - Add req_group_list to Opt::Deps (RT#55211)
          - Cascading delete/update are now wrapped in a transaction
            for atomicity
+ +        - Fix multiple deficiencies when using MultiCreate with
+ +          data-encoder components (e.g. ::EncodedColumn)
          - Fix regression where SQL files with comments were not
            handled properly by ::Schema::Versioned.
          - Fix regression on not properly throwing when $obj->relationship
diff --combined lib/DBIx/Class/Row.pm

index 7a2b90c,554d346..2777114
--- 1/lib/DBIx/Class/Row.pm
--- 2/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@@ -105,40 -105,26 +105,40 @@@ with NULL as the default, and save your
  
  sub __new_related_find_or_new_helper {
    my ($self, $relname, $data) = @_;
- -  if ($self->__their_pk_needs_us($relname, $data)) {
+ +
+ +  # create a mock-object so all new/set_column component overrides will run:
+ +  my $rel_rs = $self->result_source
+ +                    ->related_source($relname)
+ +                    ->resultset;
+ +  my $new_rel_obj = $rel_rs->new_result($data);
+ +  my $proc_data = { $new_rel_obj->get_columns };
+ +
+ +  if ($self->__their_pk_needs_us($relname)) {
      MULTICREATE_DEBUG and warn "MC $self constructing $relname via new_result";
- -    return $self->result_source
- -                ->related_source($relname)
- -                ->resultset
- -                ->new_result($data);
+ +    return $new_rel_obj;
+ +  }
+ +  elsif ($self->result_source->_pk_depends_on($relname, $proc_data )) {
+ +    if (! keys %$proc_data) {
+ +      # there is nothing to search for - blind create
+ +      MULTICREATE_DEBUG and warn "MC $self constructing default-insert $relname";
+ +    }
+ +    else {
+ +      MULTICREATE_DEBUG and warn "MC $self constructing $relname via find_or_new";
+ +      # this is not *really* find or new, as we don't want to double-new the
+ +      # data (thus potentially double encoding or whatever)
+ +      my $exists = $rel_rs->find ($proc_data);
+ +      return $exists if $exists;
+ +    }
+ +    return $new_rel_obj;
    }
- -  if ($self->result_source->_pk_depends_on($relname, $data)) {
- -    MULTICREATE_DEBUG and warn "MC $self constructing $relname via find_or_new";
- -    return $self->result_source
- -                ->related_source($relname)
- -                ->resultset
- -                ->find_or_new($data);
+ +  else {
+ +    my $us = $self->source_name;
+ +    $self->throw_exception ("'$us' neither depends nor is depended on by '$relname', something is wrong...");
    }
  }
  
  sub __their_pk_needs_us { # this should maybe be in resultsource.
- -  my ($self, $relname, $data) = @_;
+ +  my ($self, $relname) = @_;
    my $source = $self->result_source;
    my $reverse = $source->reverse_relationship_info($relname);
    my $rel_source = $source->related_source($relname);
@@@ -315,20 -301,12 +315,20 @@@ sub insert 
        MULTICREATE_DEBUG and warn "MC $self pre-reconstructing $relname $rel_obj\n";
  
        my $them = { %{$rel_obj->{_relationship_data} || {} }, $rel_obj->get_inflated_columns };
- -      my $re = $self->result_source
- -                    ->related_source($relname)
- -                    ->resultset
- -                    ->find_or_create($them);
+ +      my $existing;
+ +
+ +      # if there are no keys - nothing to search for
+ +      if (keys %$them and $existing = $self->result_source
+ +                                           ->related_source($relname)
+ +                                           ->resultset
+ +                                           ->find($them)
+ +      ) {
+ +        %{$rel_obj} = %{$existing};
+ +      }
+ +      else {
+ +        $rel_obj->insert;
+ +      }
  
- -      %{$rel_obj} = %{$re};
        $self->{_rel_in_storage}{$relname} = 1;
      }
  
@@@ -369,7 -347,6 +369,6 @@@
      $self->store_column($auto_pri[$_] => $ids[$_]) for 0 .. $#ids;
    }
  
- 
    $self->{_dirty_columns} = {};
    $self->{related_resultsets} = {};
  
@@@ -389,7 -366,7 +388,7 @@@
        foreach my $obj (@cands) {
          $obj->set_from_related($_, $self) for keys %$reverse;
          my $them = { %{$obj->{_relationship_data} || {} }, $obj->get_inflated_columns };
- -        if ($self->__their_pk_needs_us($relname, $them)) {
+ +        if ($self->__their_pk_needs_us($relname)) {
            if (exists $self->{_ignore_at_insert}{$relname}) {
              MULTICREATE_DEBUG and warn "MC $self skipping post-insert on $relname";
            } else {
diff --combined t/lib/sqlite.sql

index 7478cb7,e521a15..26c06f4
--- 1/t/lib/sqlite.sql
--- 2/t/lib/sqlite.sql
+++ b/t/lib/sqlite.sql
@@@ -1,6 -1,6 +1,6 @@@
  -- 
  -- Created by SQL::Translator::Producer::SQLite
- -- Created on Sun Mar  7 11:14:14 2010
+ -- Created on Sat Mar  6 18:04:27 2010
  -- 
  ;
  
@@@ -35,6 -35,18 +35,6 @@@ CREATE TABLE collection 
  );
  
  --
- --- Table: employee
- ---
- -CREATE TABLE employee (
- -  employee_id INTEGER PRIMARY KEY NOT NULL,
- -  position integer NOT NULL,
- -  group_id integer,
- -  group_id_2 integer,
- -  group_id_3 integer,
- -  name varchar(100)
- -);
- -
- ---
  -- Table: encoded
  --
  CREATE TABLE encoded (
@@@ -47,7 -59,7 +47,7 @@@
  --
  CREATE TABLE event (
    id INTEGER PRIMARY KEY NOT NULL,
-   starts_at datetime NOT NULL,
+   starts_at date NOT NULL,
    created_on timestamp NOT NULL,
    varchar_date varchar(20),
    varchar_datetime varchar(20),
@@@ -241,21 -253,6 +241,21 @@@ CREATE TABLE books 
  CREATE INDEX books_idx_owner ON books (owner);
  
  --
+ +-- Table: employee
+ +--
+ +CREATE TABLE employee (
+ +  employee_id INTEGER PRIMARY KEY NOT NULL,
+ +  position integer NOT NULL,
+ +  group_id integer,
+ +  group_id_2 integer,
+ +  group_id_3 integer,
+ +  name varchar(100),
+ +  encoded integer
+ +);
+ +
+ +CREATE INDEX employee_idx_encoded ON employee (encoded);
+ +
+ +--
  -- Table: forceforeign
  --
  CREATE TABLE forceforeign (
@@@ -448,4 -445,4 +448,4 @@@ CREATE INDEX fourkeys_to_twokeys_idx_t_
  -- View: year2000cds
  --
  CREATE VIEW year2000cds AS
--    SELECT cdid, artist, title, year, genreid, single_track FROM cd WHERE year = "2000"
++    SELECT cdid, artist, title, year, genreid, single_track FROM cd WHERE year = "2000"
		1	2
Changes	patch \|	diff1 \|	diff2 \|	blob \| history
lib/DBIx/Class/Row.pm	patch \|	diff1 \|	diff2 \|	blob \| history
t/lib/sqlite.sql	patch \|	diff1 \|	diff2 \|	blob \| history