Index: openacs-4/packages/xotcl-core/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xotcl-core/www/index.tcl	3 Aug 2007 07:39:30 -0000	1.6
+++ openacs-4/packages/xotcl-core/www/index.tcl	8 Aug 2007 09:57:17 -0000	1.7
@@ -33,16 +33,6 @@
   }
 }
 
-proc doc_link {obj kind method} {
-  set kind [string trimright $kind s]
-  set proc_index [::xotcl::api proc_index "" $obj $kind $method]
-  if {[nsv_exists api_proc_doc $proc_index]} {
-    return "<a href='/api-doc/proc-view?proc=[ns_urlencode $proc_index]'>$method</a>"
-  } else {
-    return $method
-  }
-}
-
 proc info_classes {cl key {dosort 0}} {
   upvar all_classes all_classes
   set infos ""
@@ -75,7 +65,7 @@
 
   foreach key {procs instprocs} {
     set infos ""
-    foreach i [lsort [$cl info $key]] {append infos [doc_link $cl $key $i] ", "}
+    foreach i [lsort [$cl info $key]] {append infos [::xotcl::api method_link $cl $key $i] ", "}
     set infos [string trimright $infos ", "]
     if {$infos ne ""} {
       append output "<li><em>$key:</em> $infos</li>\n"