package-deinstall.tcl

Deinstalls a package from the filesystem, but leaves the database intact.

Location:

/packages/acs-admin/www/apm/package-deinstall.tcl

Author:

Bryan Quinn <bquinn@arsdigita.com>

Created:

Fri Oct 13 08:45:58 2000

CVS ID:

$Id: package-deinstall.tcl,v 1.5 2018/01/20 22:45:12 gustafn Exp $

Related Files

• packages/acs-admin/www/apm/package-deinstall.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Deinstalls a package from the filesystem, but leaves the database intact.

    @author Bryan Quinn (bquinn@arsdigita.com)
    @creation-date Fri Oct 13 08:45:58 2000
    @cvs-id $Id: package-deinstall.tcl,v 1.5 2018/01/20 22:45:12 gustafn Exp $
} {
    version_id:naturalnum
}

apm_version_info $version_id

set title "Deinstall"
set context [list [list "/acs-admin/apm/" "Package Manager"] \
         [list "version-view?version_id=$version_id" "$pretty_name $version_name"] \
         $title]

db_transaction {
    append body "<ul>\n"
    set ::__apm_body ""
    apm_package_deinstall -callback apm_body_callback $package_key
    append body $::__apm_body
    append body "</ul>\n"
} on_error {
    if {![apm_version_installed_p $version_id] } {
    ad_return_complaint 1 "Database Error: The database returned the following error
    message <pre><blockquote>[ns_quotehtml $errmsg]</blockquote></pre>"
        ad_script_abort
    }
}

append body {
    <p>Return to the <a href='index'>index</a>
}

ad_return_template apm




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