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 -r1.76.2.7 -r1.76.2.8 --- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 25 Mar 2019 13:46:58 -0000 1.76.2.7 +++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 26 Mar 2019 14:34:39 -0000 1.76.2.8 @@ -148,15 +148,15 @@ Check, whether a content item with the given name exists. When content_type is provided (e.g. -content_type "::%") then a like operation is applied on the value. - + @return item_id If the item exists, return its item_id, otherwise 0. } { if {[info exists content_type]} { set result [::xo::dc get_value lookup_by_name_and_ct { select item_id from cr_items where name = :name and parent_id = :parent_id and content_type like :content_type - } 0] + } 0] } else { set result [::xo::dc get_value lookup_by_name { select item_id from cr_items @@ -1082,7 +1082,7 @@ || $__slot in { "::xo::db::CrItem::slot::name" "::xo::db::CrItem::slot::publish_date" - } + } } continue :instvar $__slot_name if {![info exists $__slot_name]} {set $__slot_name ""} @@ -1665,7 +1665,7 @@ CrCache::Class instproc lookup { -name:required {-parent_id -100} - {-content_type} + {-content_type} } { # We need here the strange logic to avoid caching of lookup fails. # In order to cache fails as well, we would have to flush the fail