Index: openacs-4/packages/wiki/lib/footer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wiki/lib/footer.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/wiki/lib/footer.tcl	6 Jan 2005 23:37:43 -0000	1.1.2.1
+++ openacs-4/packages/wiki/lib/footer.tcl	20 Jan 2005 02:28:47 -0000	1.1.2.2
@@ -1,4 +1,7 @@
 # footer for wiki pages shows edit, recent changes, search etc...
 # show last modified
 
+if {![exists_and_not_null edit_link_p]} {
+    set edit_link_p "f"
+}
 
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.2 -r1.1.2.3
--- openacs-4/packages/wiki/lib/new.tcl	7 Jan 2005 16:51:51 -0000	1.1.2.2
+++ openacs-4/packages/wiki/lib/new.tcl	20 Jan 2005 02:28:47 -0000	1.1.2.3
@@ -30,12 +30,6 @@
     
 }  -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 \
@@ -48,17 +42,8 @@
         -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 {
-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 \
@@ -72,29 +57,16 @@
     # 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 ""]
     }
-    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 \
             -relation_tag "wiki_reference"
     } 
 
-
     ad_returnredirect "./$name"
 
 } 
Index: openacs-4/packages/wiki/lib/page.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wiki/lib/page.adp,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/wiki/lib/page.adp	6 Jan 2005 23:37:43 -0000	1.1.2.1
+++ openacs-4/packages/wiki/lib/page.adp	20 Jan 2005 02:28:47 -0000	1.1.2.2
@@ -12,4 +12,4 @@
     </multiple>
     </p>
     </if>
-<include src="footer" &write_p="write_p" >
\ No newline at end of file
+<include src="footer" edit_link_p="@edit_link_p@" >
\ No newline at end of file
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.2 -r1.1.2.3
--- openacs-4/packages/wiki/lib/page.tcl	7 Jan 2005 03:05:20 -0000	1.1.2.2
+++ openacs-4/packages/wiki/lib/page.tcl	20 Jan 2005 02:28:47 -0000	1.1.2.3
@@ -63,7 +63,7 @@
 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"