From: zby <zby@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Fri, 30 Jan 2009 16:18:33 +0000 (+0000)
Subject: code for resolving
X-Git-Url: https://git.dogcows.com/gitweb?a=commitdiff_plain;h=ecf081dd43f887e5a7458601f636ae9e5e8c5832;p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate

code for resolving
---

diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
index 50be123..95725d0 100644
--- a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
+++ b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
@@ -47,6 +47,10 @@ sub recursive_update {
                     _master_relation_cond( $object, $info->{cond}, $self->_get_pk_for_related( $name ) )
                 ){
                     my $related_result = $object->related_resultset( $name );
+                    my $resolved =  $self->result_source->resolve_condition(
+                        $info->{cond}, $name, $object
+                    );
+#                    warn 'resolved: ' . Dumper( $resolved ); use Data::Dumper;
                     my $sub_object = $related_result->recursive_update( $updates->{$name} );
                     $object->set_from_related( $name, $sub_object );
                 }
diff --git a/t/var/dvdzbr.db b/t/var/dvdzbr.db
index ffd99d8..bd53857 100644
Binary files a/t/var/dvdzbr.db and b/t/var/dvdzbr.db differ