[Jifty-commit] r6917 - Jifty-DBI/trunk/lib/Jifty/DBI

Jifty commits jifty-commit at lists.jifty.org
Wed Apr 29 19:09:57 EDT 2009


Author: sartak
Date: Wed Apr 29 19:09:56 2009
New Revision: 6917

Modified:
   Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm

Log:
If a column's default is a record, call its id method

Modified: Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm
==============================================================================
--- Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm	(original)
+++ Jifty-DBI/trunk/lib/Jifty/DBI/Record.pm	Wed Apr 29 19:09:56 2009
@@ -9,6 +9,7 @@
 use UNIVERSAL::require  ();
 use Scalar::Util qw(blessed);
 use Class::Trigger;    # exports by default
+use Scalar::Defer 'force';
 
 use base qw/
     Class::Data::Inheritable
@@ -1413,7 +1414,11 @@
             and defined $column->default
             and not ref $column->default )
         {
-            $attribs{ $column->name } = $column->default;
+            my $default = force $column->default;
+            $default = $default->id
+                if UNIVERSAL::isa( $default, 'Jifty::DBI::Record' );
+
+            $attribs{ $column->name } = $default;
 
             $self->_apply_input_filters(
                 column    => $column,


More information about the Jifty-commit mailing list