subsite-convert-type.tcl

Convert the current subsite to one of its descendent subsite types.

Location:
/packages/acs-subsite/www/admin/subsite-convert-type.tcl
Author:
Steffen Tiedemann Christensen <steffen@christensen.name>
Created:
2003-09-26

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Convert the current subsite to one of its descendent subsite types.

    @author Steffen Tiedemann Christensen (steffen@christensen.name)
    @creation-date 2003-09-26
}

auth::require_login

set page_title "Convert Subsite To Descendent Type"

set context [list $page_title]

set subsite_package_options [apm::get_package_descendent_options [ad_conn package_key]]

if { [llength $subsite_package_options] == 0 } {
    return .
    ad_script_abort
}

ad_form -name subsite -cancel_url . -form {
    {package_key:text(select)
        {label "Subsite Package"}
        {help_text "Choose the new subsite package type"}
        {options $subsite_package_options}
    }
} -on_submit {
    if { $package_key ne [ad_conn package_key] } {
        apm::convert_type \
            -package_id [ad_conn package_id] \
            -old_package_key [ad_conn package_key] \
            -new_package_key $package_key
    }
    ad_returnredirect .
    ad_script_abort
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: