Brothers, first I must beg your forgiveness as I have been away for a while, but have again returned to the "TRUE WAY"
I have the following code
my $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 />);
and in my Textanswer package I have
__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 />";
});
My output is as follows
ID = '', 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
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 thoughts
Has any brother an idea?
Blessings