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.37 -r1.38
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 4 Feb 2018 00:50:50 -0000 1.37
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 8 Mar 2018 08:22:41 -0000 1.38
@@ -823,6 +823,11 @@
set href [export_vars -base /api-doc/proc-view {{proc $see}}]
return [subst {$see}]
}
+ set see [string trimleft $see :]
+ if {[nsv_exists api_proc_doc $see]} {
+ set href [export_vars -base /api-doc/proc-view {{proc $see}}]
+ return [subst {$see}]
+ }
if {[string match "/doc/*" $see]
|| [util_url_valid_p $see]} {
return [subst {$see}]
@@ -831,7 +836,7 @@
set href [export_vars -base content-page-view {{source_p 1} {path $see}}]
return [subst {$see}]
}
- return ${see}
+ return $see
}
ad_proc -public format_author { author_string } {