my $textanswer = TextAnswer->create(
        response_id => $response_id,
        user => $user_id,
        answer => $answer);
print qq(TextAnswer->textanswer_id => ), $textanswer->textanswer_id, qq(<br />);
print qq(TextAnswer->response_id => ), $textanswer->response_id, qq(<br />);
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 />);