Index: openacs-4/packages/xotcl-core/xotcl-core.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v diff -u -r1.106.2.13 -r1.106.2.14 --- openacs-4/packages/xotcl-core/xotcl-core.info 20 Feb 2020 10:15:21 -0000 1.106.2.13 +++ openacs-4/packages/xotcl-core/xotcl-core.info 21 Feb 2020 13:28:48 -0000 1.106.2.14 @@ -10,23 +10,23 @@ t xotcl - - Gustaf Neumann - XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes) - 2017-08-06 - WU Vienna - <pre> + + Gustaf Neumann + XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes) + 2017-08-06 + WU Vienna + <pre> This component contains some core functionality for OpenACS applications using XOTcl. It includes XOTcl thread handling for OpenACS (supporting persistent and volatile threads) and a definitions for -documenting XOTcl object, classes and methods +documenting XOTcl object, classes and methods integrated with the API-browser of OpenACS. Documented procs and instproc an be created using the methods ad_proc -and ad_instproc. This component provides as +and ad_instproc. This component provides as well an XOTcl Object and Class browser, as well as means to control the recreation of objects and classes -when components are reloaded. +when components are reloaded. Features: - oo-abstraction with caching (acs-objects and cr-items/revisions) - single and multi instantiations (turn all tuples into objects) @@ -40,28 +40,28 @@ - support for XOTcl and NX </pre> - BSD-Style - 2 + BSD-Style + 2 - + - + - - - - - - + + + + - - - + + + Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v diff -u -r1.41.2.15 -r1.41.2.16 --- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 20 Feb 2020 11:01:45 -0000 1.41.2.15 +++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 21 Feb 2020 13:28:48 -0000 1.41.2.16 @@ -126,6 +126,7 @@ $page set_content [string trim [$page text] " \n"] $page initialize_loaded_object + xo::Package require $package_id set p [::$package_id get_page_from_name -name $fullName -parent_id $parent_id] #:log "--get_page_from_name --> '$p'" if {$p eq ""} { @@ -227,7 +228,7 @@ PackageMgr instproc require_site_wide_pages { {-refetch:boolean false} - {-pages} + {-pages ""} } { # # If no pages are provided, take the default of the definition of