Index: openacs-4/packages/wiki/lib/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wiki/lib/new.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/wiki/lib/new.tcl	6 Jan 2005 23:38:47 -0000	1.2
+++ openacs-4/packages/wiki/lib/new.tcl	22 Feb 2005 16:15:13 -0000	1.3
@@ -42,9 +42,6 @@
         -storage_type "text" \
         -mime_type "text/x-openacs-wiki"
 
-    # do something clever with internal refs
-    set stream [Wikit::Format::TextToStream $content]
-    set refs [Wikit::Format::StreamToRefs $stream "wiki::info"]
     
 } -edit_data {
 
@@ -59,18 +56,17 @@
 } -after_submit {    
     # do something clever with internal refs
     set stream [Wikit::Format::TextToStream $content]
-    set refs [Wikit::Format::StreamToRefs $stream "wiki::info"]
+    set refs [Wikit::Format::StreamToRefs $stream "wiki::get_info"]
     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" {
+    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 \
             -relation_tag "wiki_reference"
     } 
 
-
     ad_returnredirect "./$name"
 
 }