Forum OpenACS Development: losing data from richtext after ad_form validation

Hi,
I have created an ad_form with a richtext and a text fields. I have the text field as a required field. When I enter a long text in the richtext field and nothing in the text field and submit the form, I get error stating that the text field is a required field and there is only the first word in the richtext field. Does anybody know why richtext field value gets lost during validation?

In the edit_request block I do have
set var [template::util::richtext::create $var text/html], which helps with displaying the data from database into the richtext field.

Thanks,
Priya

Hi Antonio,
Thanks for the response. I am using ad_form and OpenACS version is 5.8.0.

Here is how I am using it:

ad_form -name user_info -form {
{user_id:key}
{name:text(inform) {label "Name :"} }
{interest:text(richtext) {label "Narrative :"} }
{keywords:text(text) {label "Keywords :"} }
} -edit_request {

# Get interest for the main site.
db_0or1row get_interest_and_keywords { }
set interest [template::util::richtext::create $interest text/html]

} -mode display -edit_data {

# Insert or Update research narrative

} -after_submit {

}


Thanks,
Priya

Actually, i was able to reproduce the behavior with and without the display mode. It seems, that one needs to refresh the field on validation errors. For example in the cases where xowiki uses ad_form, this does not seem to be necessary. However, the example below should be sufficiently simple to be adapted for other needs.

best regards
-gustaf neumann

ad_page_contract {
    demo page
} {
    {name "Charlie Brown"}
    {interest:html "lying on the roof with snoopy"}
    {interest_format text/html}
    {keywords ""}
}

set form_name user_info
ad_form -name $form_name -form {
    {name:text(inform) {label "Name :"} }
    {interest:text(richtext) {label "Narrative :"} }
    {keywords:text(text) {label "Keywords :"} }
} -mode display -after_submit {
    ns_log notice "final value of interest <$interest> format $interest_format"
    ad_returnredirect /
    ad_script_abort
} -on_request  {
    set interest [list $interest $interest_format]
} -on_validation_error {
    template::element::set_value $form_name interest [list $interest $interest_format]
} 

set title "Demo Page"
set context [list $title]