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 -N -r1.72.2.7 -r1.72.2.8
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 17 Jun 2019 10:15:36 -0000 1.72.2.7
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 20 Jun 2019 09:59:22 -0000 1.72.2.8
@@ -1582,10 +1582,19 @@
}
ad_proc -private search_on_webindex {-page -host -root -proc} {
- Search for a matching link in the page and return the absolute link if found
+
+ Search for a matching link in the page and return the absolute
+ link if found. Avoid in-page links (starting with "#")
+
+ @param page HTML page
+ @param host for completing URLs starting with no "/"
+ @param root for completing URLs starting with a "/"
+ @param proc name of proc as used in link label
+
} {
set url ""
- if { [regexp "\"'\]+)\[\"'\]\[^>\]*>$proc" $page match relative_url] } {
+ if { [regexp "\"'\]+)\[\"'\]\[^>\]*>$proc" \
+ $page match relative_url] } {
if {[string match "/*" $relative_url]} {
set url $host$relative_url
} else {