version-dependency-remove.tcl

Adds a dependency to a version of a package.

Location:

/packages/acs-admin/www/apm/version-dependency-remove.tcl

Author:

Jon Salz <jsalz@arsdigita.com>

Created:

17 April 2000

CVS ID:

$Id: version-dependency-remove.tcl,v 1.12.2.1 2019/08/14 07:34:34 gustafn Exp $

Related Files

• packages/acs-admin/www/apm/version-dependency-remove.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Adds a dependency to a version of a package. 
    @author Jon Salz (jsalz@arsdigita.com)
    @creation-date 17 April 2000
    @cvs-id $Id: version-dependency-remove.tcl,v 1.12.2.1 2019/08/14 07:34:34 gustafn Exp $
} {
    {version_id:naturalnum,notnull}
    {dependency_id:naturalnum,notnull}
    dependency_type:notnull
    package_key:token,notnull
}

db_transaction {
    switch -- $dependency_type {

    provide - require {
        apm_dependency_remove $dependency_id
        }
        embed - extend {
            apm_unregister_disinherited_params $package_key $dependency_id
        apm_dependency_remove $dependency_id
            apm_build_one_package_relationships $package_key
    }

    default {
        ad_return_complaint 1 "Dependency Entry Error: Dependencies are either interfaces or requirements."
    }
    }
    apm_package_install_spec $version_id
} on_error {
    ad_return_complaint 1 "Database Error: The database returned the following error:
    <blockquote><pre>[ns_quotehtml $errmsg]</pre></blockquote>"
}

ad_returnredirect [export_vars -base version-dependencies {version_id}]
ad_script_abort

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