Index: openacs-4/packages/wiki/lib/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wiki/lib/new.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/wiki/lib/new.tcl	6 Jan 2005 23:37:43 -0000	1.1.2.1
+++ openacs-4/packages/wiki/lib/new.tcl	7 Jan 2005 16:51:51 -0000	1.1.2.2
@@ -30,6 +30,12 @@
     
 }  -new_data {
 
+    ns_log notice "
+DB --------------------------------------------------------------------------------
+DB DAVE debugging /var/lib/aolserver/openacs-5-1/packages/wiki/lib/new.tcl
+DB --------------------------------------------------------------------------------
+DB new.adp new_data
+DB --------------------------------------------------------------------------------"
     content::item::new \
         -name $name \
         -parent_id $folder_id \
@@ -47,6 +53,12 @@
     set refs [Wikit::Format::StreamToRefs $stream "wiki::info"]
     
 } -edit_data {
+ns_log notice "
+DB --------------------------------------------------------------------------------
+DB DAVE debugging /var/lib/aolserver/openacs-5-1/packages/wiki/lib/new.tcl
+DB --------------------------------------------------------------------------------
+DB new.adp edit_data
+DB --------------------------------------------------------------------------------"
 
     content::revision::new \
         -item_id $item_id \
@@ -60,10 +72,22 @@
     # do something clever with internal refs
     set stream [Wikit::Format::TextToStream $content]
     set refs [Wikit::Format::StreamToRefs $stream "wiki::info"]
+    ns_log notice "
+DB --------------------------------------------------------------------------------
+DB DAVE debugging /var/lib/aolserver/openacs-5-1/packages/wiki/lib/new.tcl
+DB --------------------------------------------------------------------------------
+DB refs = '${refs}'
+DB --------------------------------------------------------------------------------"
     if {![llength $refs]} {
         set refs [list ""]
     }
-    db_foreach get_ids "select ci.item_id as ref_item_id from cr_items ci left join cr_item_rels cr on (cr.item_id=:item_id or cr.related_object_id=:item_id) where ci.parent_id=:folder_id and ci.name in ([template::util:::tcl_to_sql_list $refs]) and cr.rel_id is null" {
+    ns_log notice "
+DB --------------------------------------------------------------------------------
+DB DAVE debugging /var/lib/aolserver/openacs-5-1/packages/wiki/lib/new.tcl
+DB --------------------------------------------------------------------------------
+DB refs = '${refs}'
+DB --------------------------------------------------------------------------------"    
+    db_foreach get_ids "select ci.item_id as ref_item_id from cr_items ci left join cr_item_rels cr on (cr.related_object_id=:item_id) where ci.parent_id=:folder_id and ci.name in ([template::util:::tcl_to_sql_list $refs]) and cr.rel_id is null" {
         content::item::relate \
             -item_id $item_id \
             -object_id $ref_item_id \