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 {