apm-callback-procs.tcl

APM Callback procs

Location:

packages/ref-timezones/tcl/apm-callback-procs.tcl

Created:

2008-12-16

Author:

Victor Guerra <vguerra@wu-wien.ac.at>

CVS Identification:

$Id: apm-callback-procs.tcl,v 1.2.2.3 2021/09/02 16:41:01 gustafn Exp $

Procedures in this file

Detailed information

[ hide source ] | [ make this the default ]

Content File Source

ad_library {

    APM Callback procs

    @author Victor Guerra (vguerra@wu-wien.ac.at)
    @creation-date 2008-12-16
    @cvs-id $Id: apm-callback-procs.tcl,v 1.2.2.3 2021/09/02 16:41:01 gustafn Exp $
}

namespace eval ref-timezones::apm {}

d_proc -private ref_timezones::apm::after_upgrade {
    {-from_version_name:required}
    {-to_version_name:required}
} {
    After upgrade callback.
} {
    apm_upgrade_logic \
        -from_version_name $from_version_name \
        -to_version_name $to_version_name \
        -spec {
            5.5.0d1 5.5.0d2 {
                db_load_sql_data [acs_root_dir]/packages/ref-timezones/sql/[db_driverkey ""]/upgrade/upgrade-timezones.ctl
                set entries [db_string _ "select count(*) from timezones"]
                ns_log Notice "$entries timezones loaded"
            }
            5.9.0b1 5.9.0b2 {
                db_load_sql_data [acs_root_dir]/packages/ref-timezones/sql/[db_driverkey ""]/upgrade/upgrade-timezones.ctl
                set entries [db_string _ "select count(*) from timezones"]
                ns_log Notice "$entries timezones loaded"
            }
        }
}

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