RT56179: insert change_id, not change object, into audit log

[dbsrgits/DBIx-Class-Journal.git] / lib / DBIx / Class / Schema / Journal / DB / ChangeSet.pm

package DBIx::Class::Schema::Journal::DB::ChangeSet;

use base 'DBIx::Class::Core';

__PACKAGE__->load_components(qw/InflateColumn::DateTime/);
__PACKAGE__->table('changeset');

__PACKAGE__->add_columns(
	ID => {
		data_type => 'integer',
		is_auto_increment => 1,
		is_primary_key => 1,
		is_nullable => 0,
	},
	user_id => {
		data_type => 'integer',
		is_nullable => 1,
		is_foreign_key => 1,
	},
	set_date => {
		data_type => 'timestamp',
		is_nullable => 0,
	},
	session_id => {
		data_type => 'varchar',
		size => 255,
		is_nullable => 1,
	},
);

sub new {
    my $self = shift->next::method(@_);
	 # I think we should not do the following and
	 # instead use DBIx::Class::TimeStamp.  If I
	 # can think of a good way (passing a version on
	 # import?) to do it and retain backcompat I will.
	 #
	 # --fREW, 01-27-2010
    $self->set_date(gmtime);
    return $self;
}

__PACKAGE__->set_primary_key('ID');

1;