ad_page_contract { Deletes a package from the database and the filesystem. @author Bryan Quinn (bquinn@arsdigita.com) @creation-date Fri Oct 13 08:42:50 2000 @cvs-id $Id: package-delete-2.tcl,v 1.9 2017/08/07 23:47:45 gustafn Exp $ } { version_id:naturalnum {remove_files:boolean 0} {sql_drop_scripts:multiple ""} } if {![apm_version_installed_p $version_id]} { set title "Package Deleted" set context [list [list "/acs-admin/apm/" "Package Manager"] $title] set body {The version you have indicated has been deleted.
Return to the index. } } else { apm_version_info $version_id set title "Delete" set context [list [list "/acs-admin/apm/" "Package Manager"] $title] set body "" set ::__apm_body "" if { [catch {apm_package_delete \ -sql_drop_scripts $sql_drop_scripts \ -remove_files=0 \ -callback apm_body_callback $package_key} errmsg] } { append body [subst { We encountered the following error when deleting package "$package_key":
}] append body $::__apm_body } else { append body {[ns_quotehtml $errmsg]
You should restart the server now to make sure the memory footprint and cache of the package is cleared out. Click here to restart the server now.
} } } ad_return_template apm # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: