Index: openacs-4/packages/simple-survey/www/admin/description-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/description-edit-2.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/simple-survey/www/admin/description-edit-2.tcl 20 Apr 2001 20:51:22 -0000 1.1 +++ openacs-4/packages/simple-survey/www/admin/description-edit-2.tcl 25 Feb 2002 20:27:41 -0000 1.2 @@ -35,52 +35,24 @@ } if {$checked_p == "f"} { - set whole_page "[ad_header "Confirm Description"] - -

Confirm Description

- - [ad_context_bar_ws_or_index [list "index.tcl" "Simple Survey Admin"] [list "one.tcl?[export_url_vars survey_id]" "Administer Survey"] "Confirm Description"] + set context_bar [ad_context_bar_ws_or_index [list "index.tcl" "Simple Survey Admin"] [list "one.tcl?[export_url_vars survey_id]" "Administer Survey"] "Confirm Description"] -
- - Here is how your survey description will appear: -

" - switch $desc_html { "t" { - append whole_page "$description" } "pre" { regsub "\[ \012\015\]+\$" $description {} description set description "

[ns_quotehtml $description]
" - append whole_page "$description" set desc_html "t" } default { - append whole_page "[util_convert_plaintext_to_html $description]" + set description "[util_convert_plaintext_to_html $description]" } } - append whole_page "
- [export_form_vars description desc_html survey_id] - -
-
- -
- - - Note: if the text above has a bunch of visible HTML tags then you probably - should have selected \"HTML\" rather than \"Plain Text\". If it is all smashed together - and you want the original line breaks saved then choose \"Preformatted Text\". - Use your browser's Back button to return to the submission form. - - - [ad_footer]" - - doc_return 200 text/html $whole_page + ad_return_template } else {