ColtsFoot has asked for the wisdom of the Perl Monks concerning the following question:
and in my Textanswer package I havemy $textanswer = TextAnswer->create( response_id => $response_id, user => $user_id, answer => $answer); print qq(TextAnswer->textanswer_id => ), $textanswer->textanswer_id, q +q(<br />); print qq(TextAnswer->response_id => ), $textanswer->response_id, qq(<b +r />); print qq(TextAnswer->user => ), $textanswer->user, qq(<br />); print qq(TextAnswer->answer =>), $textanswer->answer, qq(<br />); print qq(CALLING UPDATE<br />); $textanswer->update; print qq(CALLED UPDATE<br />);
My output is as follows__PACKAGE__->add_trigger( after_create => sub { my ($self) = @_; print "ID = '$self->{textanswer_id}', Answer = '$self->{answer} <br + />"; }); __PACKAGE__->add_trigger( before_create => sub { my ($self) = @_; print "ID = '$self->{textanswer_id}', Answer = '$self->{answer} <br +/>"; }); __PACKAGE__->add_trigger( before_update => sub { my ($self) = @_; print "About to update album, '$self->{answer} <br />"; }); __PACKAGE__->add_trigger( after_update => sub { my ($self) = @_; print "Finished updating album '$self->{answer} <br />"; });
So it seems that the before_update/after_update triggers aren't being fired and sure enough the update isn't updating the SQLite database. I think that too many years away from the "TRUE WAY" has clouded my thoughtsID = '', Answer = 'John Doe ID = '2', Answer = 'John Doe TextAnswer->textanswer_id => 2 TextAnswer->response_id => 1 TextAnswer->user => DOEJ1 TextAnswer->answer =>John Doe CALLING UPDATE CALLED UPDATE
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Problem with Class::DBI::SQLite up
by Your Mother (Archbishop) on Feb 21, 2010 at 20:19 UTC | |
|
Re: Problem with Class::DBI::SQLite up
by jdrago999 (Pilgrim) on Feb 22, 2010 at 18:40 UTC |