Index: openacs.org-dev/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 9 Jul 2002 17:34:56 -0000 1.1.1.1
+++ openacs.org-dev/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 8 Oct 2002 15:46:41 -0000 1.1.1.2
@@ -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 "
See Also:\n
<dt>
and
@@ -136,10 +148,15 @@
if { [info exists doc_elements(cvs-id)] } {
append out "[ns_quotehtml [lindex $doc_elements(cvs-id) 0]]
\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 "$see"
+ } else {
+ return $see
+ }
+}
+
ad_proc -public api_library_documentation {
{ -format text/html }
path
@@ -449,7 +476,7 @@
}
if { [llength $doc_elements(switches)] > 0 } {
- append out "[ns_quotehtml [info body $proc_name]]
\n" }