ns_write ""
set db [ns_db gethandle pool4]
set db_set [ns_db select $db "select item_id, revision_id, title from xowiki_pagex where revision_id in (select live_revision from cr_items)"]
ns_write "start"
while {[ns_db getrow $db $db_set]} {
set item_id [ns_set get $db_set item_id]
set title [ns_set get $db_set title]
ns_write "item_id:'${item_id}' title:'${title}'
"
if {[catch { db_dml q "update cr_items set name=:title where item_id=:item_id" } errmsg]} {
ns_write "OOPS $item_id $errmsg
"
}
}
ns_write ""