Index: openacs-4/packages/simple-survey/www/admin/survey-create-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/survey-create-2.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/simple-survey/www/admin/survey-create-2.tcl 15 Mar 2002 05:26:42 -0000 1.5 +++ openacs-4/packages/simple-survey/www/admin/survey-create-2.tcl 18 Mar 2002 16:58:06 -0000 1.6 @@ -65,52 +65,24 @@ if {$checked_p == "f"} { set survey_id [db_nextval acs_object_id_seq] - set whole_page "[ad_header "Confirm New Survey Description"] + set context_bar [list [list "index.tcl" "Simple Survey Admin"] "Confirm New Survey Description"] -

Confirm New Survey Description

- - [ad_context_bar_ws_or_index [list "index.tcl" "Simple Survey Admin"] "Confirm New Survey Description"] - -
- - Here is how your survey description will appear: -

" - switch $desc_html { "html" { - append whole_page "$description" + # nothing, the description is the description } "pre" { regsub "\[ \012\015\]+\$" $description {} description set description "

[ns_quotehtml $description]
" - append whole_page "$description" } default { - append whole_page "[util_convert_plaintext_to_html $description]" + set description "[util_convert_plaintext_to_html $description]" } } - append whole_page "
- [export_form_vars survey_id name description desc_html type variable_names logic] - -
-
- -
- - - 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 survey-create-confirm return } else {