Index: openacs-4/packages/simple-survey/www/admin/one.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/one.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/simple-survey/www/admin/one.tcl 20 Apr 2001 20:51:22 -0000 1.1 +++ openacs-4/packages/simple-survey/www/admin/one.tcl 25 Feb 2002 20:27:41 -0000 1.2 @@ -41,18 +41,14 @@ } # allow site-wide admins to enable/disable surveys directly from here -if { 1 == 1 } { - set target "one?[export_url_vars survey_id]" - set toggle_enabled_link "\[ " - if {$enabled_p == "t"} { - append toggle_enabled_link "Disable" - } else { - append toggle_enabled_link "Enable" - } - append toggle_enabled_link " \]" +set target "one?[export_url_vars survey_id]" +set toggle_enabled_link "\[ " +if {$enabled_p == "t"} { + append toggle_enabled_link "Disable" } else { - set toggle_enabled_link "(can only be changed by a site-wide admin)" + append toggle_enabled_link "Enable" } +append toggle_enabled_link " \]" set questions_summary "
    \n" set count 0 @@ -140,29 +136,6 @@ } -doc_return 200 text/html "[ad_header "Administer Survey"] -

    $survey_name

    +set context_bar [ad_context_bar_ws_or_index [list "./" "Simple Survey Admin"] "Administer Survey"] -[ad_context_bar_ws_or_index [list "" "Simple Survey Admin"] "Administer Survey"] - -
    - - -

    - -$questions_summary - -[ad_footer] -" - - +ad_return_template