From: Florian Ragwitz <rafl@debian.org>
Date: Tue, 2 Mar 2010 00:49:12 +0000 (+0100)
Subject: Create related rows if they don't exist already.
X-Git-Tag: 2.002001~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Controller-DBIC-API.git;a=commitdiff_plain;h=8516bd760abada937d6e36871b0bae0a3b04c78d;hp=39955b2a7f4bf1d69ba2159159ec40255e67a35c

Create related rows if they don't exist already.
---

diff --git a/lib/Catalyst/Controller/DBIC/API.pm b/lib/Catalyst/Controller/DBIC/API.pm
index 837fbea..0fe7635 100644
--- a/lib/Catalyst/Controller/DBIC/API.pm
+++ b/lib/Catalyst/Controller/DBIC/API.pm
@@ -748,7 +748,13 @@ sub update_object_relation
 {
     my ($self, $c, $object, $related_params, $relation) = @_;
     my $row = $object->find_related($relation, {} , {});
-    $row->update($related_params);
+
+    if ($row) {
+        $row->update($related_params);
+    }
+    else {
+        $object->create_related($relation, $related_params);
+    }
 }
 
 =method_protected insert_object_from_params