etp-setup.tcl

Location:
/packages/edit-this-page/www/etp-setup.tcl
Author:
Luke Pond <dlpond@pobox.com>
Created:
2001-06-01 This page allows admins to perform initial setup of a new content section.

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/edit-this-page/www/etp-setup.tcl

ad_page_contract {
    @author Luke Pond (dlpond@pobox.com)
    @creation-date 2001-06-01

    This page allows admins to perform initial setup 
    of a new content section.

} {
    {page_title ""}
    {confirmed "f"}
    {app ""}
    {subtopic_app ""}
} -properties {
    app_options:onevalue
    subtopic_app_options:onevalue
    context:onevalue
}

etp::check_write_access

set package_id [ad_conn package_id]

if { $confirmed == "f" } {
    set app [parameter::get -package_id $package_id -parameter application -default "default"]
    set subtopic_app [parameter::get -package_id $package_id -parameter subtopic_application -default "default"]

    set app_options ""
    set subtopic_app_options ""

    set apps [etp::get_defined_applications]

    foreach app_name $apps {
    
    if { $app == $app_name } {
        append app_options "<option value=\"$app_name\" selected>$app_name</option>\n"
    } else {
        append app_options "<option value=\"$app_name\">$app_name</option>\n"
    }
    
    if { $subtopic_app == $app_name } {
        append subtopic_app_options "<option value=\"$app_name\" selected>$app_name</option>\n"
    } else {
        append subtopic_app_options "<option value=\"$app_name\">$app_name</option>\n"
    }
    }
    set page_title  [_ edit-this-page.change_ETP_application_in_use_for]
    set context [list [list "etp" "[_ acs-kernel.common_Edit]"] "[_ edit-this-page.Setup]"]
    
    ad_return_template

} else {
    parameter::set_value -package_id $package_id -parameter application -value $app
    parameter::set_value -package_id $package_id -parameter subtopic_application -value $subtopic_app

    apm_parameter_sync edit-this-page $package_id
    ad_returnredirect "etp"
    ad_script_abort
}