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.50.2.12 -r1.50.2.13 --- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 18 Aug 2014 16:51:06 -0000 1.50.2.12 +++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl 20 Aug 2014 11:53:39 -0000 1.50.2.13 @@ -596,7 +596,7 @@ set cond [list] if {$type_selection_clause ne ""} {lappend cond $type_selection_clause} if {$where_clause ne ""} {lappend cond $where_clause} - if {[info exists publish_status]} {lappend cond "ci.publish_status = :publish_status"} + if {[info exists publish_status]} {lappend cond "ci.publish_status = $publish_status"} if {$base_table eq "cr_revisions"} { lappend cond "acs_objects.object_id = bt.revision_id" set acs_objects_table "acs_objects, " @@ -607,9 +607,9 @@ lappend cond "coalesce(ci.live_revision,ci.latest_revision) = bt.revision_id" if {$parent_id ne ""} { if {$with_children} { - lappend cond "ci.parent_id in (select :parent_id::integer from dual union select item_id from cr_items where parent_id = :parent_id)" + lappend cond "ci.parent_id in (select $parent_id from dual union select item_id from cr_items where parent_id = $parent_id)" } else { - lappend cond "ci.parent_id = :parent_id" + lappend cond "ci.parent_id = $parent_id" } }