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.2 -r1.3
--- openacs-4/packages/wiki/tcl/wiki-procs.tcl	6 Jan 2005 23:38:47 -0000	1.2
+++ openacs-4/packages/wiki/tcl/wiki-procs.tcl	22 Feb 2005 16:15:13 -0000	1.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
@@ -37,7 +37,7 @@
     set package_id [ad_conn package_id]
     set d [db_string get_lm "select o.last_modified from acs_objects o, cr_items ci, cr_folders cf where cf.package_id=:package_id and ci.parent_id=cf.folder_id and ci.name=:ref and o.object_id=ci.item_id" -default ""]
     set ret [list "${ref}" "${ref}" "$d"]
-    ns_log notice "
+    ns_log debug "
 DB --------------------------------------------------------------------------------
 DB DAVE debugging procedure wiki::info
 DB --------------------------------------------------------------------------------
@@ -133,13 +133,13 @@
     # ref doesn't exist yet
     
     set ret [list "${ref}" "${ref}" "1"]
-    ns_log notice "
-DB --------------------------------------------------------------------------------
-DB DAVE debugging procedure wiki::info
-DB --------------------------------------------------------------------------------
-DB ref = '${ref}'
-DB ret = '${ret}'
-DB --------------------------------------------------------------------------------"
+#    ns_log debug "
+#DB --------------------------------------------------------------------------------
+#DB DAVE debugging procedure wiki::info
+#DB --------------------------------------------------------------------------------
+#DB ref = '${ref}'
+#DB ret = '${ret}'
+#DB --------------------------------------------------------------------------------"
     return $ret
     
 }