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.3 -r1.1.2.4 --- openacs-4/packages/wiki/lib/new.tcl 20 Jan 2005 02:28:47 -0000 1.1.2.3 +++ openacs-4/packages/wiki/lib/new.tcl 22 Feb 2005 15:37:00 -0000 1.1.2.4 @@ -56,7 +56,7 @@ } -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 ""] } Index: openacs-4/packages/wiki/lib/page.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wiki/lib/page.tcl,v diff -u -r1.1.2.3 -r1.1.2.4 --- openacs-4/packages/wiki/lib/page.tcl 20 Jan 2005 02:28:47 -0000 1.1.2.3 +++ openacs-4/packages/wiki/lib/page.tcl 22 Feb 2005 15:37:07 -0000 1.1.2.4 @@ -55,10 +55,10 @@ db_1row get_content "select content,title from cr_revisions, cr_items where revision_id=live_revision and cr_items.item_id=:item_id" set stream [Wikit::Format::TextToStream $content] -set refs [Wikit::Format::StreamToRefs $stream "wiki::info"] +set refs [Wikit::Format::StreamToRefs $stream "wiki::get_info"] db_multirow related_items get_related_items "select cr.name, cr.title, cr.description from cr_revisionsx cr, cr_items ci, cr_item_rels cir where cir.related_object_id=:item_id and cir.relation_tag='wiki_reference' and ci.live_revision=cr.revision_id and ci.item_id=cir.item_id" -set content [ad_wiki_text_to_html $content "wiki::info"] +set content [ad_wiki_text_to_html $content "wiki::get_info"] set context [list $title] set focus "" set header_stuff "" Index: openacs-4/packages/wiki/tcl/wiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wiki/tcl/wiki-procs.tcl,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/wiki/tcl/wiki-procs.tcl 7 Jan 2005 16:51:51 -0000 1.1.2.2 +++ openacs-4/packages/wiki/tcl/wiki-procs.tcl 22 Feb 2005 15:37:07 -0000 1.1.2.3 @@ -12,7 +12,7 @@ namespace eval wiki:: {} -ad_proc -public wiki::info { +ad_proc -public wiki::get_info { ref } { Tries to resolve a wiki reference to