[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