X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI%2FAsForm.pm;fp=lib%2FMaypole%2FModel%2FCDBI%2FAsForm.pm;h=06f1039f3f1da76866a975733e63dbd0efb9909b;hb=99967c293b1b617a0cac8126f923f6acfa2e4598;hp=c072dc8d7112e1433e1fd5ef3c062b598947842e;hpb=f591252a06f4b7a9db154062128f4f2a59831cac;p=maypole.git

diff --git a/lib/Maypole/Model/CDBI/AsForm.pm b/lib/Maypole/Model/CDBI/AsForm.pm
index c072dc8..06f1039 100644
--- a/lib/Maypole/Model/CDBI/AsForm.pm
+++ b/lib/Maypole/Model/CDBI/AsForm.pm
@@ -983,7 +983,8 @@ sub _to_foreign_inputs {
   my $rel_meta = $args->{related_meta} || $self->related_meta('r',$accssr); 
   my $fields 		= $args->{columns};
   if (!$rel_meta) {
-    $self->_croak( "No relationship for accessor $accssr");
+    $self->_carp( "[_to_foreign_inputs] No relationship for accessor $accssr");
+    return;
   }
 
   my $rel_type = $rel_meta->{name};