Index: openacs-4/packages/wiki/lib/page.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wiki/lib/page.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wiki/lib/page.tcl	6 Jan 2005 23:38:47 -0000	1.2
+++ openacs-4/packages/wiki/lib/page.tcl	22 Feb 2005 16:15:13 -0000	1.3
@@ -20,7 +20,13 @@
     # the path resolves directly to a site node
     set name "index"
 }
-
+ns_log debug "
+DB --------------------------------------------------------------------------------
+DB DAVE debugging /var/lib/aolserver/openacs-5-1/packages/wiki/lib/page.tcl
+DB --------------------------------------------------------------------------------
+DB name = '${name}'
+DB folder_id = '${folder_id}'
+DB --------------------------------------------------------------------------------"
 set item_id [content::item::get_id -item_path $name -resolve_index "t" -root_folder_id $folder_id]
 if {[string equal "" $item_id]} {
     rp_form_put name [ad_conn path_info]
@@ -30,15 +36,14 @@
 
 if {[info exists edit]} {
     set form [rp_getform]
-    ns_log notice "
+    ns_log debug "
 DB --------------------------------------------------------------------------------
 DB DAVE debugging /var/lib/aolserver/openacs-5-head-cr-tcl-api/packages/wiki/lib/page.tcl
 DB --------------------------------------------------------------------------------
 DB form = '${form}'
 DB [ns_set find $form "item_id"]
 DB --------------------------------------------------------------------------------"
     if {[ns_set find $form "item_id"] < 0} {
-        ns_log notice "Adding Item_id"
         rp_form_put item_id $item_id
         rp_form_put name $name
     }
@@ -49,15 +54,15 @@
 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 ""
 
-set write_p [permission::permission_p \
+set edit_link_p [permission::permission_p \
                  -object_id $item_id \
                  -party_id [ad_conn user_id] \
                  -privilege "write"