faq-install-procs.tcl

FAQ install callbacks

Location:

packages/faq/tcl/faq-install-procs.tcl

Created:

2004-04-01

Author:

Jeff Davis davis@xarg.net

CVS Identification:

$Id: faq-install-procs.tcl,v 1.4 2018/07/12 12:39:45 hectorr Exp $

Procedures in this file

Detailed information

[ hide source ] | [ make this the default ]

Content File Source

ad_library {
    FAQ install callbacks

    @creation-date 2004-04-01
    @author Jeff Davis davis@xarg.net
    @cvs-id $Id: faq-install-procs.tcl,v 1.4 2018/07/12 12:39:45 hectorr Exp $
}

namespace eval faq::install {}

ad_proc -private faq::install::package_install {} {
    package install callback
} {
    faq::sc::register_implementations
    faq::apm_callback::package_install
}

ad_proc -private faq::install::package_uninstall {} {
    package uninstall callback
} {
    faq::sc::unregister_implementations
    faq::apm_callback::package_uninstall
}

d_proc -private faq::install::package_upgrade {
    {-from_version_name:required}
    {-to_version_name:required}
} {
    Package before-upgrade callback
} {
    apm_upgrade_logic \
        -from_version_name $from_version_name \
        -to_version_name $to_version_name \
        -spec {
            5.2.0d1 5.2.0d2 {
                # need to install the faq callbacks
                faq::sc::register_faq_fts_impl
                faq::sc::register_faq_q_and_a_fts_impl
                faq::apm_callback::package_install
            }
        }
}

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