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 ""