chat::apm::after_upgrade (private)

 chat::apm::after_upgrade -from_version_name from_version_name \
    -to_version_name to_version_name

Defined in packages/chat/tcl/apm-callback-procs.tcl

Upgrade logics for the chat package

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

Partial Call Graph (max 5 caller/called nodes):
%3 apm_parameter_unregister apm_parameter_unregister (public) apm_upgrade_logic apm_upgrade_logic (public) chat::apm::after_upgrade chat::apm::after_upgrade chat::apm::after_upgrade->apm_parameter_unregister chat::apm::after_upgrade->apm_upgrade_logic

Testcases:
No testcase defined.
Source code:
    apm_upgrade_logic  -from_version_name $from_version_name  -to_version_name $to_version_name  -spec {
            6.0.0d3 6.0.0d4 {
                ns_write "\n\nDeleting obsolete parameters"
                set parameter_names {
                    AppletHeight
                    AppletWidth
                    DefaultClient
                    ServerHost
                    ServerPort
                    ShowAvatarP
                }
                ::xo::dc foreach get_parameters [subst {
                    select parameter_id, parameter_name
                      from apm_parameters
                    where package_key = 'chat'
                    and parameter_name in ([ns_dbquotelist $parameter_names])
                }] {
                    apm_parameter_unregister  -package_key chat $parameter_id
                    ns_write "\n - deleting obsolete parameter chat.$parameter_name"
                }
                ns_write "\nFinished!"
            }
            6.0.0d6 6.0.0d7 {
                ns_write "<br>Setting rooms and transcripts package_id to context_id where missing"
                set n_rows [::xo::dc dml update_package {
                    update acs_objects set
                    package_id = context_id
                    where object_type in ('chat_room', 'chat_transcript')
                    and package_id is null
                }]
                ns_write "<br>$n_rows objects updated."
                ns_write "<br>Finished!"
            }
            6.0.0d17 7.0.0 {
                ::xo::dc dml drop_moderated_column {
                    alter table chat_rooms drop column moderated_p
                }
            }
            7.0.0 7.0.1 {
                ::xo::dc dml drop_moderated_column {
                    delete from acs_attributes
                     where object_type = 'chat_room'
                       and attribute_name = 'moderated_p'
                }
            }
        }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: