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

ref_timezones::apm::after_upgrade (private)

 ref_timezones::apm::after_upgrade -from_version_name from_version_name \
    -to_version_name to_version_name

After upgrade callback.

Switches:
-from_version_name
(required)
-to_version_name
(required)

Partial Call Graph (max 5 caller/called nodes):
%3 acs_root_dir acs_root_dir (public) apm_upgrade_logic apm_upgrade_logic (public) db_driverkey db_driverkey (public) db_load_sql_data db_load_sql_data (public) db_string db_string (public) ref_timezones::apm::after_upgrade ref_timezones::apm::after_upgrade ref_timezones::apm::after_upgrade->acs_root_dir ref_timezones::apm::after_upgrade->apm_upgrade_logic ref_timezones::apm::after_upgrade->db_driverkey ref_timezones::apm::after_upgrade->db_load_sql_data ref_timezones::apm::after_upgrade->db_string

Testcases:
No testcase defined.
[ hide source ]

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: