--- lib/Grep/Model/Item.pm 2007/07/04 09:37:18 167 +++ lib/Grep/Model/Item.pm 2007/07/04 09:38:51 168 @@ -33,11 +33,12 @@ column author => type is 'text'; - column issued => + column created_on => type is 'timestamp', + default is defer { DateTime->now }, filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime ); - column modified => + column last_update => type is 'timestamp', filters are qw( Jifty::Filter::DateTime Jifty::DBI::Filter::DateTime ); @@ -72,24 +73,14 @@ warn "$uid can't $what"; } -=for TODO - -sub after_create { - my $self = shift; - my $insert_return_value_ref = shift; - - return unless $$insert_return_value_ref; # bail if insert failed - $self->load($$insert_return_value_ref); # load ourselves from db - - # Do whatever needs to be done here +sub _set { + my $self = shift; + my ($val, $msg) = $self->SUPER::_set(@_); -# use Data::Dump qw/dump/; -# warn "after_create ", dump( $self->as_hash ); + $self->SUPER::_set(column => 'last_update', value => defer { DateTime->now }); - return; # return value is ignored + return ($val, $msg); } -=cut - 1;