unmount.tcl

Location:
/packages/acs-subsite/www/admin/site-map/unmount.tcl
Author:
rhs@mit.edu
Created:
2000-09-12
CVS ID:
$Id: unmount.tcl,v 1.7.2.1 2024/08/05 14:12:41 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    @author rhs@mit.edu
    @creation-date 2000-09-12
    @cvs-id $Id: unmount.tcl,v 1.7.2.1 2024/08/05 14:12:41 gustafn Exp $

} {
    node_id:naturalnum,notnull
    {expand:integer,multiple ""}
    root_id:naturalnum,optional
}

site_node::unmount -node_id $node_id

ad_returnredirect [export_vars -base . {expand:multiple root_id}]
ad_script_abort

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