Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	13 Sep 2002 19:02:14 -0000	1.7
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	15 Sep 2002 20:59:28 -0000	1.8
@@ -80,7 +80,19 @@
     }
     return [list]
 }
-
+    
+ad_proc -private api_format_see_list { sees } { 
+    Generate an HTML list of referenced procs and pages.
+} { 
+    append out "<strong>See Also:</strong>\n<ul>"
+    foreach see $sees { 
+	append out "<li>[api_format_see $see]\n"
+    }
+    append out "</ul>\n"
+     
+    return $out
+}
+    
 ad_proc -private api_format_author_list { authors } {
 
     Generates an HTML-formatted list of authors (including <code>&lt;dt&gt;</code> and
@@ -136,10 +148,15 @@
     if { [info exists doc_elements(cvs-id)] } {
 	append out "<dt><b>CVS ID:</b>\n<dd><code>[ns_quotehtml [lindex $doc_elements(cvs-id) 0]]</code>\n"
     }
+    if { [info exists doc_elements(see)] } {
+	append out [api_format_see_list $doc_elements(see)]
+    }
 
     return $out
 }
 
+
+
 ad_proc -public api_script_documentation {
     { -format text/html }
     path
@@ -240,6 +257,16 @@
     return $author_string
 }
 
+ad_proc -private api_format_see { see } {
+    regsub -all {proc *} $see {} see
+    set see [string trim $see]
+    if {[nsv_exists api_proc_doc $see]} { 
+        return "<a href=\"proc-view?proc=[ns_urlencode ${see}]\">$see</a>"
+    } else { 
+        return $see
+    }
+}
+
 ad_proc -public api_library_documentation {
     { -format text/html }
     path