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 -N -r1.4 -r1.5
--- openacs-4/packages/wiki/tcl/wiki-procs.tcl	13 Jun 2005 09:48:50 -0000	1.4
+++ openacs-4/packages/wiki/tcl/wiki-procs.tcl	27 Sep 2005 12:46:10 -0000	1.5
@@ -35,25 +35,11 @@
     # ref doesn't exist yet
     # this sucks we have to hammer the databse for every link
     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 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 debug "
 DB --------------------------------------------------------------------------------
-DB DAVE debugging procedure wiki::get_info
+DB DAVE debugging procedure wiki::info
 DB --------------------------------------------------------------------------------
 DB ref = '${ref}'
 DB ret = '${ret}'
@@ -82,7 +68,7 @@
 } {
     # should really map site_nodes to cr_folders, but I
     # want to see what can be done with stock OpenACS
-    if {$package_id == ""} {
+    if {$package_id eq ""} {
        if  {[ad_conn -connected_p]} {
            set package_id [ad_conn package_id]
        } else {
@@ -116,8 +102,7 @@
     @creation-date 2004-09-03
 } {
     set stream [Wikit::Format::TextToStream $text]
-
-    # wiki::info will find the parent site node of a reference, and
+# wiki::info will find the parent site node of a reference, and
     # look for a proc called package-key::wiki_info which should
     # return the id, name, modified date of the item
     # (i think id means "url" but I might be wrong!)
@@ -150,7 +135,7 @@
     set ret [list "${ref}" "${ref}" "1"]
 #    ns_log debug "
 #DB --------------------------------------------------------------------------------
-#DB DAVE debugging procedure wiki::ad_wiki_info
+#DB DAVE debugging procedure wiki::info
 #DB --------------------------------------------------------------------------------
 #DB ref = '${ref}'
 #DB ret = '${ret}'