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 -N -r1.23 -r1.24 --- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 26 Nov 2009 12:02:16 -0000 1.23 +++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 30 Nov 2009 10:20:53 -0000 1.24 @@ -301,10 +301,10 @@ ::xo::db::CrFolder register_content_types \ -folder_id $folder_id \ -content_types $content_types - my log "returning from cache folder_id $folder_id" + #my log "returning from cache folder_id $folder_id" return $folder_id }] - my log "returning from require folder_id $folder_id" + #my log "returning from require folder_id $folder_id" return $folder_id } Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v diff -u -N -r1.37 -r1.38 --- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 26 Nov 2009 12:02:16 -0000 1.37 +++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 30 Nov 2009 10:20:53 -0000 1.38 @@ -102,9 +102,8 @@ @return parent_id } { - if {[my isobject ::$item_id]} { - return [::$item_id parent_id] - } + # TODO: the following line is deactivated, until we get rid of the "folder object" in xowiki + #if {[my isobject ::$item_id]} {return [::$item_id parent_id]} db_1row [my qn "get_parent"] "select parent_id from cr_items where item_id = :item_id" return $parent_id } @@ -118,9 +117,8 @@ @return parent_id } { - if {[my isobject ::$item_id]} { - return [::$item_id parent_id] - } + # TODO: the following line is deactivated, until we get rid of the "folder object" in xowiki + #if {[my isobject ::$item_id]} {return [::$item_id parent_id]} db_1row [my qn "get_name"] "select name from cr_items where item_id = :item_id" return $name }