[Dbix-class] How to find updated fields

[Guillermo Roditi]

if it's insert then they are all dirty, thats why. try in_storage
instead. think it out first


On 3/24/07, RA Jones <ra.jones at dpw.clara.co.uk> wrote:
> Guillermo Roditi wrote:
> > yeah, that's my distribution. and really, its not that hard. just make
> > the file and overload the appropriate subs, load the component and
> > ta-da
> So I created a very simple overloaded insert() method as described in
> DBIx::Class::Manual::Component, in a new module called DBIx::Class::CRUD
>
> package DBIx::Class::CRUD;
> use base qw/DBIx::Class/;
>
> sub update {
>   my $self = shift;
>
>   my %dirty_cols = $self->get_dirty_columns;
>   use Data::Dumper; # open $fh here
>   print $fh Dumper %dirty_cols;
>   return $self->next::method( @_ );
> }
>
> And in MyApp::Schema::MyClass:
> __PACKAGE__->load_components(qw/PK::Auto CRUD Core/);
>
> But %dirty_cols is empty. The DBIC::CRUD::insert method *is* being
> called as a) I can dump $self to output, where there is no entry for
> anything resembling get_dirty_columns, and b) entry confirmed with
> $c->log->info( join "\n" => Class::C3::calculateMRO('Schema::MyClass') ):
>
> Schema::Location, DBIx::Class::CRUD, DBIx::Class::Core, <a few more>,
> DBIx::Class::PK::Auto, etc.
>
> I'm obviously *still* doing something wrong :-(
> >
> > On 3/23/07, RA Jones <ra.jones at dpw.clara.co.uk> wrote:
> >> Guillermo Roditi wrote:
> >> > That's the code I would recommend using for a DBIx::Class component,
> >> > which you would have to build, then load. this is a lot simpler than
> >> > it seems. see DBIx::Class::DigestColumns on the 'pan for an example of
> >> > how to build a DBIC component.
> >> This is a module you assisted in development? Are you suggesting I have
> >> to write my own module to be able to use the get_dirty_columns method?
> >>
> >> > I can't really go through this exercise with you, but I assure you
> >> > it's not ThatHard. it just takes some diving in.
> >> I'm quite prepared to 'dive in' if that is what is necessary. But I feel
> >> sure it *will* be ThatHard!
> >>
> >> > On 3/23/07, RA Jones <ra.jones at dpw.clara.co.uk> wrote:
> >> >> Guillermo Roditi wrote:
> >> >> > I think you could possibly implement this as a component that wraps
> >> >> > update, delete, or insert and the use get_dirty_columns et al.
> >> >> >
> >> >> > eg
> >> >> >
> >> >> > sub update{
> >> >> >    my ( $self, $upd, @rest ) = @_;
> >> >> >    my %cols = $obj->get_dirty_columns;
> >> >> >    %cols = (%cols, %$upd) if( ref $upd );
> >> >> >    warn( "Updated: ". join(", ", keys %cols)  );
> >> >> >    $self->next::method($upd, @rest);
> >> >> > }
> >> >>
> >> >> Well I cannot get this to work. I'm using catalyst and formbuilder,
> >> and
> >> >> doing the update like:
> >> >>
> >> >> $form->update($fields);
> >> >>
> >> >> That works OK, but if I try to capture the result of the action:
> >> >>
> >> >> my $r = $form->update($fields);
> >> >>
> >> >> and dump $r to file, get_dirty_columns does not exist, the closest is
> >> >> _dirty_columns which is an undefined hashref:
> >> >>
> >> >> $VAR1 = bless( {
> >> >>    'related_resultsets' => {},
> >> >>    '_orig_ident' => undef,
> >> >>    '_dirty_columns' => {},
> >> >>    etc,
> >> >>
> >> >> Am I missing something obvious here?
> >> >>
> >> >> > On 3/22/07, RA Jones <ra.jones at dpw.clara.co.uk> wrote:
> >> >> >> Rob Kinyon wrote:
> >> >> >> > On 3/22/07, RA Jones <ra.jones at dpw.clara.co.uk> wrote:
> >> >> >> >> In my applications I frequently record in a log file which
> >> fields
> >> >> >> >> were updated by which users. Is there an easy way in DBIC to
> >> find
> >> >> >> >> out which fields got updated during an update() or
> >> >> >> >> update_or_insert() action? Thanks.
> >> >> >> >
> >> >> >> > Look for the get_dirty_columns() method on the Row object.
> >> >> >> Thanks, I had just scanned the DBIC::Row manual, and managed to
> >> miss
> >> >> >> that one - is_changed() looked promising, but it appears to be only
> >> >> for
> >> >> >> uncommitted changes.
> >> >> >> --
> >> >> --
> >> >> Richard Jones
> >> >> Leeds, UK
> >> >> ra.jones(at)dpw.clara.co.uk
> --
> Richard Jones
> Leeds, UK
> ra.jones(at)dpw.clara.co.uk
>
> _______________________________________________
> List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
> Wiki: http://dbix-class.shadowcatsystems.co.uk/
> IRC: irc.perl.org#dbix-class
> SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
> Searchable Archive: http://www.mail-archive.com/dbix-class@lists.rawmode.org/
>