xotcl-core::after-upgrade (private)

 xotcl-core::after-upgrade -from_version_name from_version_name \
    -to_version_name to_version_name

Defined in packages/xotcl-core/tcl/install-check-procs.tcl

Callback for upgrading

Switches:

-from_version_name

(required)

-to_version_name

(required)

Author:

Gustaf Neumann <neumann@wu-wien.ac.at>

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    ns_log notice "-- UPGRADE $from_version_name -> $to_version_name"
    set v 0.88
    if {[apm_version_names_compare $from_version_name $v] == -1 &&
        [apm_version_names_compare $to_version_name $v] > -1} {
      ns_log notice "-- upgrading to $v"
      set dir [acs_package_root_dir xotcl-core]
      foreach file {
        tcl/05-doc-procs.tcl
        tcl/10-recreation-procs.tcl-old
        tcl/thread_mod-procs.tcl
      } {
        if {[ad_file exists $dir/$file]} {
          ns_log notice "Deleting obsolete file $dir/$file"
          file delete -- $dir/$file
        }
      }
    }

XQL Not present:

Generic, PostgreSQL, Oracle