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.6 -r1.76.2.7 --- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 25 Mar 2019 11:33:31 -0000 1.76.2.6 +++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 25 Mar 2019 13:46:58 -0000 1.76.2.7 @@ -958,21 +958,13 @@ foreach {__slot_name __slot} [[:info class] array get db_slot] { if { - $__slot in { - "::xo::db::Object::slot::object_title" - "::xo::db::Object::slot::creation_user" - "::xo::db::Object::slot::creation_date" - "::xo::db::Object::slot::creation_ip" - "::xo::db::Object::slot::last_modified" - "::xo::db::Object::slot::modifying_user" - "::xo::db::Object::slot::modifying_ip" - "::xo::db::Object::slot::package_id" - "::xo::db::Object::slot::context_id" - "::xo::db::Object::slot::security_inherit_p" + [$__slot domain] eq "::xo::db::Object" + || $__slot in { "::xo::db::CrItem::slot::name" "::xo::db::CrItem::slot::publish_date" } } continue + #ns_log notice "REMAINING SLOT: [$__slot serialize]" set $__slot_name [set :$__slot_name] lappend __atts [$__slot column_name] lappend __vars $__slot_name @@ -1086,20 +1078,11 @@ foreach {__slot_name __slot} [$__class array get db_slot] { # :log "--slot = $__slot" if { - $__slot in { - "::xo::db::Object::slot::object_title" - "::xo::db::Object::slot::creation_user" - "::xo::db::Object::slot::creation_date" - "::xo::db::Object::slot::creation_ip" - "::xo::db::Object::slot::last_modified" - "::xo::db::Object::slot::modifying_user" - "::xo::db::Object::slot::modifying_ip" - "::xo::db::Object::slot::package_id" - "::xo::db::Object::slot::context_id" - "::xo::db::Object::slot::security_inherit_p" + [$__slot domain] eq "::xo::db::Object" + || $__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 ""}