package-instance-create.tcl

Create (unmounted) package instance.

Location:

/packages/acs-admin/www/apm/package-instance-create.tcl

Author:

Gustaf Neumann

Created:

8 Sept 2014

CVS ID:

$Id: package-instance-create.tcl,v 1.5 2018/02/02 00:04:50 gustafn Exp $

Related Files

• packages/acs-admin/www/apm/package-instance-create.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Create (unmounted) package instance. 
    @author Gustaf Neumann
    @creation-date 8 Sept 2014
    @cvs-id $Id: package-instance-create.tcl,v 1.5 2018/02/02 00:04:50 gustafn Exp $
} {
    {package_key:token,notnull}
    {return_url:localurl /acs/admin/apm}
}

apm_package_instance_new -package_key $package_key
ad_returnredirect $return_url
ad_script_abort

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