Index: openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl 25 Aug 2008 11:30:26 -0000 1.4 +++ openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl 27 Oct 2014 16:42:01 -0000 1.5 @@ -1,24 +1,24 @@ namespace eval ::xotcl-core { - ad_proc ::xotcl-core::before_install_callback {} { + ad_proc -private ::xotcl-core::before-install {} { Callback for checking whether xotcl is installed for OpenACS @author Gustaf Neumann (neumann@wu-wien.ac.at) } { ns_log notice "-- before-install callback" - if {[info command ::xotcl::Class] eq ""} { + if {[info commands ::xotcl::Class] eq ""} { error " XOTcl does not appear to be installed on your system!\n\ Please follow the install instructions on http://www.openacs.org/xowiki/xotcl-core" } elseif {$::xotcl::version < 1.5} { error " XOTcl 1.5 or newer required. You are using $::xotcl::version$::xotcl::patchlevel.\n\ - Please install a new version of XOTcl (see http://www.openacs.org/xowiki/xotcl-core)" + Please install a new version of XOTcl (see http://www.openacs.org/xowiki/xotcl-core)" } else { ns_log notice "XOTcl $::xotcl::version$::xotcl::patchlevel is installed on your system." } } - ad_proc ::xotcl-core::after_upgrade_callback { + ad_proc -private ::xotcl-core::after-upgrade { {-from_version_name:required} {-to_version_name:required} } { @@ -46,4 +46,12 @@ } } -} \ No newline at end of file +} + + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: