Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: data historization with DBIx::Class

by Brutha (Friar)
on Mar 03, 2011 at 07:19 UTC ( #891159=note: print w/replies, xml ) Need Help??

in reply to data historization with DBIx::Class

Although this is quite old, I just offer my solution which might be helpful for another future reader, as this one made me known with the Row->copy() and the Journal module. But none of both really helped me.

My problem was the following. Every row has a marker column to mark it as active, history rows are saved in the same table, every row has a timestamp. So I have to copy the current active row, set the active marker to 0 and insert a new copy with the current timestamp and active marker as 1. Here my shortened code:

my $upd_code_with_history = sub { my $record = $resultset->find(\%key); # save unchanged Data for new row my %data = $record->get_columns; # modify the existing row $record->set_column( 'active_marker', 0); $record->update; # now update the saved row data which the changes foreach my $key(keys %values) { $data{$key} = $values{$key}; } $data{'timestamp_col'} = \['CURRENT TIMESTAMP']; # DB2 my $new_row = $resultset->create (\%data ); # insert }; # ende Coderef $upd_code_with_history

This gives two SQL statements, which is fine as I have to change differnet columns in two rows.

And it came to pass that in time the Great God Om spake unto Brutha, the Chosen One: "Psst!"
(Terry Pratchett, Small Gods)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://891159]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2018-07-16 18:33 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (346 votes). Check out past polls.