template::apm::before_upgrade (private)

 template::apm::before_upgrade -from_version_name from_version_name \
    -to_version_name to_version_name

Defined in packages/acs-templating/tcl/apm-callback-procs.tcl

before upgrade apm callback for acs-templating.

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

Partial Call Graph (max 5 caller/called nodes):
%3 apm_package_id_from_key apm_package_id_from_key (public) apm_upgrade_logic apm_upgrade_logic (public) db_foreach db_foreach (public) db_transaction db_transaction (public) parameter::get parameter::get (public) template::apm::before_upgrade template::apm::before_upgrade template::apm::before_upgrade->apm_package_id_from_key template::apm::before_upgrade->apm_upgrade_logic template::apm::before_upgrade->db_foreach template::apm::before_upgrade->db_transaction template::apm::before_upgrade->parameter::get

Testcases:
No testcase defined.
Source code:
    apm_upgrade_logic  -from_version_name $from_version_name  -to_version_name $to_version_name  -spec {
            4.6.4 5.0d1 {
                db_transaction {

                    # Change 'standard-lars' to 'standard'

                    set package_id [apm_package_id_from_key "acs-templating"]
                    set DefaultFormStyle [parameter::get  -package_id $package_id  -parameter DefaultFormStyle]

                    if {$DefaultFormStyle eq "standard-lars"} {
                        parameter::set_value  -package_id $package_id  -parameter DefaultFormStyle  -value "standard"
                    }

                    db_foreach subsite {
                        select package_id
                        from   apm_packages
                        where  package_key = 'acs-subsite'
                    } {
                        set DefaultFormStyle [parameter::get  -package_id $package_id  -parameter DefaultFormStyle]

                        if {$DefaultFormStyle eq "standard-lars"} {
                            parameter::set_value  -package_id $package_id  -parameter DefaultFormStyle  -value "standard"
                        }
                    }
                }
            }
            5.5.1d1 5.5.1d2 {
                # Removing invalid plugins for the new version of Xinha
                set package_id_templating [apm_package_id_from_key "acs-templating"]
                set plugins [parameter::get  -package_id $package_id_templating  -parameter "XinhaDefaultPlugins"  -default ""]
                if { $plugins ne "" } {
            set del_pos [lsearch $plugins FullScreen]
            set plugins [lreplace $plugins $del_pos $del_pos]
            parameter::set_value  -package_id $package_id_templating  -parameter "XinhaDefaultPlugins"  -value $plugins 
                }
            }
        }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ]
Show another procedure: