Commit | Line | Data |
f0f14c64 |
1 | package DBIx::Class::Journal; |
2 | |
3 | use base qw/DBIx::Class/; |
f0f14c64 |
4 | |
74f04ccc |
5 | ## On create/insert, add new entry to AuditLog |
6 | |
c5fba518 |
7 | # sub new |
8 | # { |
9 | # my ($class, $attrs, @rest) = @_; |
74f04ccc |
10 | |
c5fba518 |
11 | # $class->result_source->schema->_journal_schema->current_user(delete $attrs->{user_id}); |
74f04ccc |
12 | |
c5fba518 |
13 | # $class->next::method($attrs, @rest); |
14 | # } |
74f04ccc |
15 | |
16 | sub insert |
17 | { |
18 | my ($self) = @_; |
19 | |
20 | ## create new transaction here? |
c5fba518 |
21 | my $res = $self->next::method(); |
74f04ccc |
22 | if($self->in_storage) |
23 | { |
c5fba518 |
24 | my $s_name = $self->result_source->source_name(); |
25 | print STDERR "Schema: ", ref($self->result_source->schema), "\n"; |
74f04ccc |
26 | my $al = $self->result_source->schema->_journal_schema->resultset("${s_name}AuditLog"); |
27 | $al->create({ |
28 | changeset => $self->result_source->schema->_journal_schema->current_changeset(), |
29 | }); |
b5851590 |
30 | } |
c5fba518 |
31 | |
32 | return $res; |
74f04ccc |
33 | } |
34 | |
35 | ## On delete, update delete_id of AuditLog |
36 | |
37 | ## On update, copy previous row's contents to AuditHistory |
38 | |
f0f14c64 |
39 | |
40 | |
41 | 1; |